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تقديم الكتاب 


بقلم الأستاذ تركي العسيرى 
استطیع أن آقول انك شخص محظوظ li‏ وحماتك Ved‏ تحبك. حیث انك m‏ 
ستتعلم برمجة NET Framework‏ من مبرمج (حقيقي) ولیس مبرمج از سر 
أكاديمي نطاق انجازاته لا تتعدى كتابة برامج ببضعة سطور لحل all‏ اخ VIVE ACEC‏ 
أو واجب عملي, Ub‏ أتحدث عن آحمد جمال وهو من US‏ المحترفین العرب وی 
والذي له بصماته في مشاريع هي تتحدث عنه. ويكفينا فخرا بأنه المسئول الأول لموقع vb4arab‏ والذي يمثل 
اكبر مجتمع للمبرمجين العرب حول العالم. 





ما يعجبني lS‏ في أسلوب احمد جمال aida‏ في اختيار الكم المعرفي للتحدث عنه. خاصة hwg‏ هذا الكم 
العددي الهائل من الانفجار المعلوماتي وكترة المستندات. فهو يعرف تماما ما يحتاجه المبرمج وما لا يحتاجهء 
plas‏ جیدا من Gul‏ تؤكل الكتف وكيف ترمى العظام اما عن جواهره (اقصد شفراته المصدرية (Source Codes‏ 
فهو يتفنن ويبدع في اختيار الأمثلة التي يعرضها بحيث تغطي الكثير من الحالات الحقيقية Real World Cases‏ 
والتي ستظهر للمبرمج Mol pl Vole‏ ولا يكتفي بذكر أمثلة تشرح الفكرة فقط. 


بخصوص الكتاب» فتقول إحدى الحكم الطريفة: "من الصعب أن تجد قطة سوداء.. في قاعة صماء .. وخصوصا ان 
لم يكن هنالك قطة خير شر!" وكمحاولة لربطها بموضوعنا يمكن أن نقول انه "من الصعب أن تجد أفضل لغة 
برمجة (موجهة ل (.NET‏ في Jb‏ هذا الزخم من اللغات .. وخصوصا إن لم يكون هنالك أي às)‏ برمجة خير شر!" 
فمن بعد ما كانت لغات البرمجة لفات حقيقية مستقلة لها سماتها وشمائلها, anol‏ الحديث في هذه الأيام عن 
تقنيات «(...LINQ «WPF DirectX .COM ۰۰۱۶۲ Java)‏ وتكاد أن تكون lal‏ البرمجة شبيهة فيما بينها إلى حد 
کبیر. lias‏ الكتاب خير دليل على صحة ما رميت به, فكاتب هذا الكتاب -بناء على مقدمته- اعتمد على 
مجموعة كتب تتحدث بلغات مختلفة (#©,8/, ...الخ) ليتمكن من كتابة كتاب حول تقنية «NET‏ ليس هذا فقط 
بل يقدم شرح الشفرات المصدرية بأكثر من لغة! 


ومن هذا المنطلق كان الاختيار (الذكي (la‏ من الكاتب لعنوان الكتاب 2008 Visual Studio‏ دون تحديد اللغة, 


فلا يوجد بعد اليوم مصطلح اسمه مبرمج Basic‏ أو مبرمج 0#, فقد توحدنا (نحن معشر المبرمجين) وأصبحنا 
جميعا لنتمعي إلى JI" ale‏ مبرمجي. ]۱۳ . 


يغطي هذا الكتاب ابرز المواضيع الأساسية NET Assi‏ ومن ثم يأخذ بك جولة إلى مواضيع متفرقة مثل برمجة 
قواعد البيانات «Windows Forms esl «Database Programming‏ وبرمجة ويب. كما سيسيل الكاتب لعابك 
أكثر عندما تعلم انه لم يتجاهل التقنيات الجديدة (والتي ظهرت مع الإصدار الثالث من إطار العمل. NET‏ 
(Framework‏ مثل تقنية LINQ‏ الموجه للتعامل المتقدم مع البيانات Data Entities‏ وتقنية WPF‏ والتي Jio‏ 


الجیل القادم لبرمجة واحهات الاستخدام قابلة للنقل Portable User Interfaces‏ وتقنية WCF‏ والتي توفر حلولا 
أكثر انتاحية للتطبیقات الموزعة Distributed Applications‏ وهذه مواضیع من النادر Ul h>‏ پستطیع شخص 
دمجها في کتاب واحد. 


أخيراء قد تكون ارتكبت خطأ في قراءة هذا التقديم (الذي V‏ بسمن ولا يعني من حوع ولن يوفي حق الکتاب 
ومقلفه)؛ E STS‏ 


-- تركي العسيري 
٩ COM‏ 





هذا الکتاب IEEE‏ - 2 

e sds لماع ع‎ eee عا ف لوق رود‎ setae 6 لعزا‎ tau be baw iaeiued ة اح ااه امي لاق‎ ieee ees محتويات الكتاب‎ 
| | ————— — 2008 الباب 02 تحمیل نسختك الأولى من فیجوال ستودیو‎ e 
32 E .NET 2008 الباب 03 الجدید مع ال‎ e 
BB). E الرنيسية‎ .net aiu palag 04 الباب‎ e 
TA O E M REN Visual Studio 2008 الباب 05 الواجهة الاساسية لل‎ e 
doe الجزء الأول‎ .net الباب 06 مکونات اللغة الرنيسية في‎ e 
110. و شنت‎ EER b RUM eed الجزء الثاني‎ .net الرنيسية في‎ ASI الباب 07 مکونات‎ e 
TAD. O oá— € Y OOP aagill الباب 08 مقدمة إلى البرمجة کاننية‎ e 
TOO ا ——— نت‎ E TT الواجهات‎ — Interfaces 09 الباب‎ e 
196 utebare mue E RM UI LI LI CEDE الباب 10 الاخطاء واقتناصها‎ e 
210. N SO beni ee ee fo ue eee ey ad ooa Collections الباب 11 التجمیعات‎ e 
DDG. c ——— ———— Mr € —Ó — MÀ net 2008 الباب 12 البرمجة المتقدمة في‎ e 
20). رت‎ EEE M dd: System.IO .net الباب 13 الادخال و الاخراج في‎ e 
roc MEE Windows Forms .net الباب 14 برمجة النوافذ في ال‎ e 
OT n DL ا ا ا‎ a a ESS +GDI 15 الاب‎ e 
BOA) sic —————— Windows Presentation Foundation 16 الباب‎ e 
239: crc cers eter ace ML EC ADO.net _الباب 17 قواعد البیانات باستخدام‎ e 
BOS: SEAL p LINQ 18 الباب‎ e 
B3] ocio IM AMDMEEIU R T UN WWF 19 الباب‎ e 
5:12 —————————————— WCF 20 الباب‎ e 
B5B. «seo MEILEN EU I LM d IDE D a d cU Ld Agadig blai 21 الباب‎ e 
BTID Iber indc dd Mte i IM E ASP.net باستخدام‎ sálggll الباب 22 تطوير‎ ۰ 
hy Ame Cr DHT ERR TRENT TEUER الکتاب. وشكر‎ Agila 





pA Sm rr ————— M مقدمة الكتاب‎ 
ZI GNU E E A M MEE ET NE calggll عن‎ axi 
29. b pp ade eae MELIA Mcd C MM ne ek Leora oe هذا الكتاب‎ 
O ER RETE ES محئویات الکناب‎ 
2008 الباب 02 تحمیل نسختك الأولى من فیجوال ستودیو‎ 
I Sian E SC TA Visual Studio 2008 من‎ Algl4ll .النسخة‎ 1 
و‎ Visual Studio 2008 من‎ 7uilagll النسخ‎ .2 
O 0 EET VS 2008 إلى‎ VS 2005 3.ترقية مشروعك الذى يعمل على ال‎ 


الات 03 الجدید مع ال 2008 .NET‏ 





سح 


aa. lm sau IE I M I I PI LI A IPM MILES Silverlight 1.تقنية‎ 
AG Tr rp OOD accu a wnat eacees LINQ تقنية‎ 2 
117 ا ا ی‎ COP: WPF تقنية‎ 3 
i: ————————————— R Expression Acggag.4 
BL sheet aa eset Sane LUE AM LULA MM AME AE UE WCF 7uiai.5 
Li e ————— ——MÀ— ——— E Code Refactoring.6 
الرنيسية‎ net Ais palag 04 الباب‎ 
cy PC Net 1.لغات‎ 
SS —— —— '——————— OP RR Net Aim الأساسية‎ polisli, 2 
OO ————————— —— — ees Base Class Library JI. 3 
cu e —— Á— ——— M ER T .net Assemblies.4 
c m ———ÓÁ——————————— —— mate: CIL JI.5 
DJ icai uA A iu M t tad eL LM eee ree EC Metadata Jl. 6 
7 —————————————————————Q Manifest Jl. 7 
p we NA Common Type System.8 
DD A E ME env IPM ME cabe ide LI cep MEDI CTS Members .1.8 
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محتويات الكتاب 


GO SD O CTS Data Types .2.8 

57 ee اا‎ ee a eer ee Common Language Specification.9 

CS ECTETUR KP Common Language RunTime.10 
OO —————————— € Object Browser .استخدام‎ 11 
TO). A E E AE E Name Space rlgauill .مجالات‎ 12 
TO: ———————— O استیراد مجالات الاسماء‎ 2 
TE. ا‎ ildasm agliy استخدام‎ 13 
rp Mr —————————————m Open source .net تبحث عن‎ Ja 14 


الان 05 الواجهة الاساسية للفیجوال ستودیو 2008 


= 


j| aeee O O — rt ۽‎ 3g4ll .کیف اکتب‎ 1 
2100001011 — neae: Visual Studio 2008 Command Prompt استخدام‎ 1 
7 2 و‎ ATE ————— M TextPad استخدام ال‎ 1 
BO een er ne ا‎ Notepad++ استخدام‎ .3.1 
BI -—-———————————————— SharpDevelop .4.1 
v e —————————— —— Visual Studio 2008 sg البداية‎ 2 
c —————————————— ee برنامجك الأول‎ 2 
اللا 06 مکونات اللغة الرنيسية الجزء الأول‎ 
DB E E yT Console 1.خصانصی‎ 
ST EEEE ل‎ EET تعريف المتغیرات‎ .2 
OD a E eacueetsaneeesesmaceanespe ss المتغیرات‎ cigil 2 
e E PEE N ees se en soe ss E A ec cdeeees Constant Culgill 2 
OD ——————— ES Read Only Field haa للقراءة‎ gäll .3.2 
93 T"—-————————— String Annil د.المتغیرات‎ 
p —————————— String لل‎ AnuLuil الخصانص والدوال‎ 1.3 
o ——  ————————————— تقسیم النصوص‎ .3 
OA O sonata nse النصوص ايا اا‎ aga . 37 
OA — النصوص‎ äijläg .4.3 
OS -——————————— o" haa سي شارب‎ — Escape Characters 3 
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35 —————————————— — A String ulg التحویل من‎ .6.3 


sic ts aero se oe ce eee ee ae eee een StringBuilder 3‏ 1 اا ات 
4 .التعامل مد التاريخ والوقت Hv HEBHPEERRER‏ 
5.التحويل بين المتغيرات الوختلفة ااا ااا ا OR O‏ 
OO EEE EO E E PE E A E ——— ee eas Widening Conversions .1.5‏ 
Narrowing Conversions .2.5‏ —————— | 
5 . عملیات ال uo ————————————————— Cast‏ 
5 التحویل باستخدام TON cass Convert‏ 
6.الجمل الشرطية في o ee E—————HÉE Net‏ 
6 اساسیات الشروط |i, —————————————n‏ 
2.6. دمت الشروط a 0( e E —————n‏ 
TOS: ——————" ———————————— AndAlso 6‏ 
a La T ee er E E E OrElse .4.6‏ 
6 استخدام ال US m——————————————— eoeees switch‏ 
/ .الحلقات التکراریہ IOG Mr erm‏ 
TOO E E NN EDEEOMER PU UE WO EEEU PbUE For - Next Loop 7‏ 
MOT, ————————— While Loop .2.7‏ 
C———————————— For Each Loop .3.7‏ 1 
الان 07 مکونات اللغة الرنيسية في .net‏ — الجزء الثاني 
1 .لنفهم برنامجنا الأول '——————————————— ix p‏ 
2 الدوال TG O O Function‏ 
3.الطرق —R Methods‏ —————— —————————— 17 
4 .الوظيفةۂ de "——————————————————— P out‏ 17 
5 .الإرسال بالمرجه byref‏ واللاٍرسال UNT byval Agiüli‏ 
6 .الوصفوفات !——————————————————— | i‏ 
۵6 ما هي المصفوفات wets Arrays‏ ی 1 
6 تكوين a c ————— rám————— Cilagangll‏ 
6 المصفوفغات متعددة الابعاد —————— —————————— PE‏ 
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4.6. عمل مصفوفة من المصفوفات ee ree‏ 111100110000000 رز 


jc qe —Ó—— Hm ارسال واستقیال المصفوفات من والی الدوال‎ 6 
TD ا‎ po ل‎ ea ee aead bean a seers S خصانص الوصفوفات الرئیسیہ‎ .6.6 
VDA, O ا ل‎ T ا‎ Enumeration 7 
DI ———————————— M Structure 8.التراكيب‎ 
LIZI. ——— á Q—— Struct الدوال داخل ال‎ chwil . 8 
jk a ——————— T Reference والانواع‎ Value clgiill,9 
jc esc c—————————————————— ———— HÀ .المقارنات‎ 0 
13 —— O——————À Nullable Types.11 
TO oe EEA EEE Nullable خصانص ال‎ .1.11 
ir er E A E E $$ المعامل‎ 1 
OOP کاننية التوجم‎ Argyll الباب 08 مقدمة إلى‎ 
pL —————————————————— Classes إلى الفنات‎ Agaág. 1 
pL ————————————————— EA Constructors المشیدات‎ 1 
117 r——————— ———— — ee Destructor المهدمات‎ 1 
jC ————————"É———————"—— ES this.2 
jc -————————————————— ا‎ E Static .التعرف على‎ 3 
|j. ———— ——————— Static Class .1.3 
a ———— ————— ——— OverLoading إعادة التحمیل‎ .4 
ISF Jce———————————— Access Modifier .معرفات الوصول‎ 5 
[ ۶ 9 ———————— OOP 6.العناصر الاساسية في‎ 
7 |. —A—————— E Encapsulation .1.6 
LSE E A EEE E eseseaedoolaaaanteu Inheritance .2.6 
|l —————— Polymorphism .3.6 
iz T —————————————  ——"Ü Encapsulation. 7 
Gy 0 0 eer anaceonsse nay private Cilysig ull للوصول‎ public Jiga استخدام‎ 7 
||. ———— ÉÓ Constructor ارسال القيم کجزء من ال‎ . 7 
LOD I9) CD ا‎ MEME Type Property استخدام ال‎ . 7 
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TOG E E E EET Inheritance .وراه‎ 


a L ey EEE PEE EIEE E ا ا‎ —— — P— ET is-a Adlle تعریف‎ 8 
iei: ————————— sealed -NotInheritable المحجوزة‎ aglSil 8 
(7 ——————— M—————— ——————— E المتعددة‎ Ailjgll 8 
: coco E EE التعديل في الكلاس المشتق‎ .8 
LIL EEE ل‎ ————— ——— has-a cai من‎ Adllsll 8 
p ———————É Casting التحویلات‎ .6.8 
1 7 TT —————— € is المحجوزة‎ agl4ll .7.8 
170... ee 999 9 925 9 4 9) 2:09 29 22 42 «0 292 2 29 E Visual Studio Class Diagram .8.8 
17 و‎ E E PE AE EEEE AEE EE A EE A E Polymorphism JI.9 
p; O ee A E E E A E E E Abstract JI. 10 
1 (0 —————— Abstract method 0 


الاس 090 Interfaces‏ — الواجهات 


سح( 


TBD ——————————— Interface .تعریف ال‎ 1 
L^ ——————————— Names Clashes.2 
LOT M——————— IEnumerable interface, 3 
1 5 a —"———————————— 101 0۳62۳0 1 interface. 4 
i ل‎ IComparable interface.5 
الاس 10 الاخطاء واقتناصها‎ 
lS a —————— eee Syntax Errors 7ugaill .الأخطاء‎ 1 
ii: ————————————— Logical Erros 7zuahigll الأخطاء‎ 2 
DOO O O System.Exception aiall,3 
202 o Throwing Exceptions - الاستتناءات‎ 19). 4 
uc serie gene E E A E nessa ees Catching exceptions - .اقتناص الاخطاء‎ 5 
IOS 7719ب‎ Finally استخدام‎ . 5 
DOG ea PE ااا ا ااا ا‎ break استخدام‎ .2.5 
"y A A E AE E E E E S TargetSite استخدام‎ .3.5 
DOG. e a tae et cen oo cieseo tonne sade tes areecna haw ceia. cde eeeess HelpLink ستخدام‎ .4.5 
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Collections التحمیعات‎ ll الاس‎ 


212. E E VEN RiNP M UMEN System.Collections في‎ Interfaces 1 
2 5 p—— —————————ÉP System.Collections 2.الفنات في‎ 
DI E ا‎ E E E Arra nist 1.2 
b E——————————————— HashTable .2.2 
2 1۳ a Queue 2 
DOO: —— Stack .4.2 
net 2008 البروجة المتقدمة في‎ 12 col 
ny a E E E A EE E Generics 1 
jp و‎ eawereeaeeaee a nemea nen eneueean earns ncesasen eens aden se esaenes Structure and Class Generics 1 
DOO v e—————————Ó Generic Collection .2.1 
2 (۱ —————————— where T استخدام‎ .3.1 
2  V—————————————— — Delegates JI. 2 
2 ۰  ——— Delegates تعريف ال‎ ۸ 
n pm —————————— Events الاحدات‎ 2 
unl M——————— Cf في‎ haa - Anonymous Methods JI.3 
jJ ——————— —————————— —— — المتغیرات‎ cgi استنتاج‎ . 4 
DAO ————————————— HE Extension Methods 5.الدوال الممتدة‎ 
22 M PTT————"É Automatic Properties, 6 
212 ———————————— Lambda Expressions .تعبیرات لامدا‎ / 
DAG M ———————— Object Initializer Syntax انساء الکاننات‎ $un.8 
Dn ا ا‎ nae Anonymous Types Algaagll clgiill.9 
25 EL E—— T E Partial Methods. 10 
25 A —————"———————————— Garbage Collector.11 
2 52 ————————— PHÓ GC Aidl .1.11 
25 E E Operator Overloading.12 
jv ——————————— eee Pointers .المو‌شرات‎ 13 
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POL ———————— Query Expressions. 14 


P: e EEN A EE EE E EEE E E Preprocessor Directives.15 
D EEE EE E P —E€ region, #endregion .1.15 
DGG e Soest asec taints usenet ec tedasahis #if, #elif, folre; #endif .2.15 
DG 7 sae E E see aioe ee MM rene eee eee #define, #undef .3.15 
DGD: ——————————— —— — es XML Commenting. 16 
2 7 ——————————— ———— .net 7 
اا‎ ———"— E namespace ال‎ 7 
275 —————————— Default Namespace ال‎ yusi .2.17 
DIG. هن‎ testes Format of a .net Assembly شكل ملف الاسمبلي‎ 63.17 
DUT ————————""-——"———^A——- C" Private Assemblies 7 
y 1 1 ————————— ——Á—Á— Shared Assemblies 7 
py M ——————— Multithreading .المسارات المتعددة‎ 18 
DIB —————————M—————— ägaäg ۵ 
ITO —————— Synchronization الجوریزمات التزامن‎ .2.18 
DO eave eer ااا‎ System. Threading. Thread 8 
jj. -————————————A——— Priority äggil .4.18 
DG — ————————— ParameterizedThreadStart ,5.18 
DBO €——— Foreground and Background 8 
uU 7 e O Threads Synchronization 8 
288 eae area re tea UMEN UIDMIDIAI MEM ا‎ MUS ThreadPool .8.18 
IEE —————————— rH BackgroundWorker .9.18 
System.IO .net الاك 13 الادخال و الاخراج في‎ 
2 9 qu —————— re ee rere System. 10 .الفنات الاساسية في‎ 1 
JOD oes IEA EE ENA AASE E Directory gDirectoryInfo الفوارق بين‎ .2 
JOG ae E ااا‎ O ا ا ا‎ E DirectoryInfo aiall,3 
p: ———————————— Directory Aidl .التعامل مع‎ 4 
210 E —————— Drivelnfo Aid! 5.التعامل مع‎ 
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SOL e ee ee ee FilelInfo gg 6.التعامل‎ 


6 انشاء وفتح الملفات باستخدام E E E Open‏ ی 
aia .2.6‏ وانساء الملغات باستخدام OpenRead‏ و SOA. 3 EOR OpenWrite‏ 
aia 0‏ الملغات باستخدام SOA ———————m OpenText‏ 
6 الفتح باستخدام CreateText‏ و Á—ÁM! AppendText‏ ا ا و EE A E‏ 20 
/ .التعامل مع A File aiall‏ ل er ee rT ee‏ ل SOS‏ 
BOT. Me ————————————————— Stream,8‏ 
zi earn ee E ——————À FileStream Aial .1.8‏ 
2.8. التعامل مع الفنات eee een ee ee eee ee ee ee er ne Adiugll‏ 7 
ci ————— — eos StreamWriter, StreamReader 8‏ 
Ar ——— — StringWriter, StringReader .4.8‏ 312 
cuu ec ————— (—— Y BinaryReader,BinaryWriter .5.8‏ 
cy weedy pa ————— ——————— FileSystemWatcher.9‏ 
BUT. ——————————— Object Serialization. 10‏ 
0 التعامل مع ال cub 0007 E O E Serialization‏ 
cvi e— —————————— ———— P XmlSerializer .2.10‏ 


Windows Forms .net برمجة النوافذ في ال‎ 14 c ibl 


e 2 e ———————————————————— —— ägaäg. 1 
2 ————— بالکود‎ Windows Forms 2 
lol ye — —————————— اضافة آدوات بالکود‎ 2 
329 ————— o—— — pilgàll إضافة‎ .2 
TT O ee eee ee ee Viusal Studio .net 3.انشاء فورم عن طريق‎ 
ca ——————————————— ا‎ Windows.Forms الاسماء‎ Jbg. 4 
chu M r———— Windows.Forms الفنات الرئيسية لعناصر‎ ۵ 
Dv —O——————————A Form Aidl خصانص‎ ۵ 
co ————————————HHU ee ren Form Ail Jiga . 4 
32 ——————————— Form Aiall احدات‎ 4 
nU —————————— —————————— Controls aiall.5 
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cnn ————————————— "— Controls Aidl خصانص‎ (1,5 


A panes ete date casas ernest cates eee aes Controls Aid آحداث‎ 5 
BAG PEE System.Windows.Forms.Control vilgi.6 
BAG. ——— ———— € Button 6 
cry ————— Oe———À—OÉ—O—Ó — —— CheckBox 0 
Cy M ——— ——————— tre RadioButton 6 
0111 1 [1 wna swans SESSLER ListBox g ComboBox 6 
cU ———————————————eQÓ Textbox 06 
cc q———————————————— Label 6 
SSO E en ee ee Panel gGroupBox .7.6 
اد‎ — —————————— HQ RichTextBox ,8.6 
cc p—-—————————— —— ————— — — Timer 6 
cL — —————————— TreeView.10.6 
25 و‎ q———————————— ————— ProgressBar.11.6 
BS ———————————————— TrackBar.12.6 
Ecl e ل‎ ET E E E E TT DateTimePicker.13.6 
2 5 E E Dialogs.7 
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WILL SI قدم2‎ 


بسم اللہ الرحمن الرحیم. والصلاة والسلام على أشرف الذنبیاء والمرسلين. lini‏ محمد وعلی all‏ 
وصحبم آجمعین. 


اللهم لا سمل الا ما جعلتم Hau‏ وأنت تجعل الحزن law‏ . 


.. بعد‎ lgi 


فهذا الکتاب هو عبارة عن تجمیع لسلسلة من الدروس استمرت على مدار Ai‏ آشهر 
على منتدی فیجوال بيسك للعرب حول تقنیات .2008 net‏ الجديدة ٠‏ تم الانتهاء laig‏ بحمد 
الله في اول سبتمبر 2008 ۰ ومن pi‏ تم تجمیعها مع وضع اضافات جديدة lade‏ ضمن کتاب 
ونسق ga‏ الکتاب الذى تجده بين يديك pl‏ . 


Pro C# 2008 and the .net 3.5 بعد قراءة کتاب‎ Coch فكرة الکتاب‎ 

Cua Andrew Troelsen «álag Platform‏ وجدت مرجعا كاملا باللغة الانجليزية لكل ما 

یختص بنسخة CH‏ الجديدة من مایکروسوفت ۰ ومع Lil‏ لا آدعي آني قمت بعمل مرجع باللغة 

العربية الا آنني استطيع أن geji‏ أني Cube‏ بصورة موجزة آغلب النقاط الرنيسية في مجال ال 

۲ بلفتیم C#‏ و VB.net‏ ۰ وللمزید احلتك bilg ull‏ من MSDN‏ لتستطیه التعمق في JS‏ 
مجال على حدة . 
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في هذا الکتاب ربوا لن تجد تفصیلاً شاملاً لنقطة ما « فلا تنتظر مني Mig‏ أن تعرف بعد 
نهاية فصل ما کل ما يتعلق باحد الأدوات. ولکنك تستطیع التعرف على آکبر قدر من 
المعلومات حول äü‏ هذه الأداة وطريقة تعاملها وسلوکها Yala‏ برنامجك ©« فهذا الکتاب 
یهدف لذن تستطیع من خلالم فهم net. äi‏ أكثر من دعمك لتطور تطبیقات بسرعة دون أن 
laii padi‏ الداخلیم وكيفية تعاملها مع مکونات اللغة Aali3gll‏ . 


وبالرغر من ذلك سنجد بين ayiall‏ والاخری تطبیق عملي نقوم gu Alger‏ لنطبیق بعض 
المفاهیم التي تعلمناها bil‏ التعلیم النظری بالتطبیق العملي لتحصیل أكبر کم من الفاندة من هذا 
الکتاب ... لذا ستجد بين 3lg&ill Glib‏ الموجودة في هذا الکتاب aac‏ کبیر من Aligill‏ 
والتطبیقات الصفيرة لكن لا تنتظر مني أن أقول لك جرب هذا التطبیق مثلا خطوة بخطوة . 


اسال اللہ أن يكون هذا الكتاب مفيداً. فما كان فيه من صواب فون اللم. وما كان من 
خطا فون نفسي والشیطان. واللہ العادى إلى سواء السبيل. 


api‏ جمال خليفة 
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أحمد جمال خليفة عبدالعال 





لا يشكر الله من لا يشكر الناس ٠‏ ومؤلف هذا الکتاب لديہ في الواقه قانمة Aligh‏ باشخاص كثيرين 
یستحقون الکثیر من الثناء والدعاء ۰ لذا اسمح لي أن اسرد آسماء‌هم هنا . Cua‏ آهدف من ذلك لذن آتذکر 
دوما أن هذا الکتاب pl‏ يكن لیکون كذلك لولا فضل alll‏ علي ligi‏ واخراً بالتعرف والاستفادة من cliga‏ 
الاشخاص حتی جاءت الثهرة المتواضعة التي تراها بين يديك ٠ yall‏ لذا padi‏ شکرا bold‏ للاستاذ تركي 
ااعسيري صاحب كتابي Aggy gi)‏ كاننية التوجم) ثم (برمجة jibl‏ عمل شيني من خلال Cun (.net‏ كان 
لکتبہ كبير Jill‏ في توجیم مساري في عالم البرمجةة ٠‏ زاد على ذلك أن شرفني بتقدیمم لهذا الکتاب بکلمة 
اعطاني فیها آکثر من حجمي كثيراً . لذا آرجو من اللہ أن أكون عند حسن خن آستاذي بي . وألا أخيب رجانم 


الشكر أيضاً موصول yuaiagll‏ محمد ساور سلو Cua‏ استفدت كثيراً من ومقالاتم في jagi‏ هذا الکتاب . 
كما اجدد الشکر للدارة منتدی فیجوال بيسك للعرب ومشرفیم على تشجیعهم لي لتقدیم کتاب في هذا 
المجال ٠‏ أخص بالذکر منهم iuil‏ عبد اللہ العتیق مدير الموقع والأخ agal‏ بدر ۰ älg‏ الإخوة الکرام ... 


الشكر أيضاً لكل من المهندس agai‏ عيسوي. الوهندس محمد النبهاني على مساعدتهم لي لتنقیج هذا الکتاب . 
فالنسخ الأولى من الکتاب كانت تزخر - ولا تزال - بالاخطاء . آشکر pal‏ تفريغ cja‏ من وقتهم لقراءة الکتاب 
وتوجيهي ومساعدني على تدارك هذه المسکل قبل اخراد النسخة الاخیرة . 


... ba yal شكر‎ 


شکر خاص Ia‏ للمهندس الطبیب وليد بوالطمین ۰ والمهندسة نورهان Yale‏ ليس فقط لمساعدتهم في تنقیج 
محتویات الکتاب ۰ لکن لذن الکتاب الذي تراه أمامك هم من قاموا باخراجه لیکون بهذا الشکل بدعاً من 
تصمیم الصفحات واسلوب العرض والکتابة Aligillg‏ والتنسيق . وانتهاء بتصمیم الغلاف ۰ أكرر شكرى pal‏ 
gal jadis‏ كثيراً ما بذلوه من جهد لإخراج هذا الکتاب في أبهى حلة . 


الشکر عام أيضاً لكل من استفدت paig‏ في إعداد aliilg‏ هذا الکتاب ۰ واعتذر لمن gl‏ خانتني الذاکرة pla‏ 
آذکره هنا ۰ الشکر أيضا لجمیع من استفدت منهم في حياتي العامة gl‏ في دراستي ۰ لأهلي بالطبه gigalg‏ 
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- آسماء البرامج المذکورة في هذا الکتاب Office. Windows Jis‏ وغیرها هي علامات 
تجارية مسجلة لاصحابها و الکاتب يحق بملکیتها لاصحابها وان لم يشر إلى ذلك مباسرة 
للاختصار. 


- تم اختبار اغلب محتويات المادة العلمية للملخص ۰ الا أن الكاتب غير مسؤول باي حال عن 
محتوباتها أو سوء استخدامها. 

- حقوق الكتاب محفوظة للمؤلف . ولا Gay‏ طباعتہ أو توزيعم أو استخدامم Gil‏ غرض Gi‏ 
بدون أذن من المؤلف. 

- أغلب الأكواد تم تجريبها داخل الكتاب ۰ ولكن هذا لا يمنع وجود أكواد غير مجربة أو مجرب 
alil‏ واحد laig‏ فقط C#‏ أو ll. VB.net‏ ساکون gl NENT‏ ارسلت aili‏ تجاربك على بریدص 
الالکترونی. 

- وبنفس الطريقة لو وجدت Gha‏ املانیا أو تعبیریا ساکون آسعد لو راسلتني لتخبرني بم. 


- بعض algSill‏ الموجودة ليست من تاليف الکاتب ۰ بل laig‏ منقول وتمت الاشارة إلى عملیات 
النقل حال وجودها ۰ ومع ذلك فالمؤلف یعتذر عن أى Jäi‏ غير adlg‏ او gl‏ تتم الاشارة لمصدره 


تصوره صحیحا . 


- روابط المواقع الموجودة في الکتاب تم التحقق من سلامتها وقت alii]‏ هذا الکتاب الا أن 


.Ailigiagl قراءتك‎ cliil الکاتب لا يضمن عملها‎ 
Microsoft" 
INJ NET 


vb4arab.com و تصمیم موقع فیجوال بيسك للعرب‎ aliil 
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يضم هذا الکتاب مجموعة من أساسيات net gle‏ . وتحدیدا .2008 net‏ عبر aac‏ من الفصول 
والابواب . هذا موجزها: 

الباب الأول: هذا الباب ليس أكثر من کونم مقدمة عن محتویات الکتاب والفهرس وبیانات عن 
کاتب الکتاب والاتفاقية. 

الباب الثانی: هنا lari‏ الانطلاق في Cua net 2008. pile‏ يقودك هذا الجزء لتحمیل نسختكت 
من الفیجوال سنودیو وبرمجه برنامجك الأول وكيفية Aail‏ بين الإصدارات المختلفة. 

الباب الثالث: هذا الباب مخصص لتحفيزك على الانطلاق في Cua NET. gle‏ یسرد لك 
بصورة apning‏ نبذة عن النقنیات الجديدة (ill‏ ربوا تقنعك بصرورة اقتحام met. pile‏ إذا p!‏ 
تكن مبرمجا من قبل فهذا الباب ليس مخصصاً لك سوى لاستعراض الجديد فقط. 

الباب lia :21lyll‏ تجد lang‏ لمفاهير Net. äiu‏ الرئيسية وعناصرها المخنلفم. 


الباب الخایس: من هنا تستطیع الانطلاق في panni‏ برامجك. cua‏ یعرض لك هذا الباب 
كيفية البدء بالبرمجة ومن pi‏ كيفية الانطلاق في Visual Studio pile‏ كبينة Aagull‏ الخاصةۃ 


الباب السادس: هنا سنبدا باستعراض عناصر ASIE‏ الاساسية äg‏ کتابتها. هذا الباب موجه 
بصورة أساسية للمبتدنین gag‏ فقط تذکیر باسالیب كتابة ASU‏ لامحترفین. 


الباب السابع: استمرار للباب السابق ولکن بصورة متقدمة نسبیا. 


الباب الثامن: هذه هو مدخلك Aagull‏ كائنية التوجم OOP‏ حيث يمكنك التعرف على الفنات 
ومحنویانها Asg‏ العمل من خلالها . 


الباب التاسع: الواجهات Interfaces‏ وخصانصها واستخداماتها في البرمجة. 
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الباب الحادي عشر: يسرد هذا الباب بالتفصیل elgil‏ ال Collections‏ واستخداماتها المتکررة 
في برامجنا المختلفة . 


الباب الثاني عشر: البرمحة المتقدمة هذه Cua ۰ Ajgll‏ ستتعرف على عناصر أكثر تقدما في n3l‏ 
البرمجه وفي net. pile‏ 


الباب الثالت عشر: طرق الإدخال واللاخراج المختلفة وكيفية التعامل مع الملفات . 


الباب sil‏ عشر: الانطلاق في Windows Formsul äpy pile‏ والادوات التي تحتویها 
والخصائص والرسم وخلاقم . 

الباب الخامس عشر: ياخذك في Ab)‏ سريعة في pile‏ الرسومیات ثنانية awil‏ من خلال 
الا)+ . 


الباب السادس عشر: بداية لتقنیة WPF‏ المختصة بالرسومیات ثنانية وئلائية الابعاد وأدواتها 
وبرامجها المختلفة . 


الباب السابع عشر: في هذا الباب یمکنك الانطلاق في pile‏ برمجة قواعد البيانات من خلال 
ADO.net‏ وما یستلزم ذلك من قواعد البيانات SQL Server‏ وخلافہ . 


الباب الثامن عشر: التقنية الجديدة من مايكروسوفت للاستعلام LINQ‏ يمكنك البدء بها lia‏ 
الباب التاسع عشر: هنا نبدا في gle‏ تقنية WWF‏ الجديدة من مایکروسوفت لإدارة المشاريع. 
الباب العشرون: ایضا مع WCF pile‏ لمشاركة البرامچ والتطبيقات من مايكروسوفت. 


الباب الحادى والعشرون : مجموعة من المواضيع Aglall‏ تتعلق بتشغيل برنامجك على الأجهزة 
المختلفة قبل الانطلاق في pile‏ الويب في الباب اللاحق . 


الباب الثاني والعشرون : الباب chig . jill‏ هذا الباب من تطوير تطبيقات ويب تفاعلية من 
خلال ASP.net‏ . 


gai‏ من alll‏ أن يكون في بعض محتویاتها الفاندة والنفع... 


31 


اجابة هذا السوال هي الأصعب بالنسبة لي طوال مشواري في عمل هذا الکتاب. فهذا الکتاب لا 
یستهدف مستوی معین ولیس مخصصا äia‏ معينة. فهو یحاول أن یقتبس من کل بستان 
زهرة. ویضعك على Jo‏ الطريق Li‏ كان مستواك. 


laying آما لو كنت‎ ٠ أساسیات البرمجة‎ Igy كنت مبتدعاً فابواب الکتاب الأولى توضد لك‎ lå 
كنت متوسطا‎ gl Igi . والانطلاق في الابواب التي تختارها لنفسك‎ baa فيكفيك معرفة الجدید‎ 
. het 2008. pile فهذا الکتاب سیکون نقطة انطلاق جيدة لك في عدة فروع من‎ 


لذا gayl‏ أن لا يمل المحترف من Afi‏ التکرارات في الکتاب . gi‏ توضیح الواضد خصوصا في 
الاساسیات ۰ aiy Cua‏ تجاوز النقاط الاساسية والدخول فوراً في النقاط التي laly‏ هامة 
بالنسبة لم ٠‏ آما إذا كانت هذه هي المرة الأولى لك للانطلاق في pile‏ البروجة فحاول الا تفوت 
شینا من محتويات الكتاب ٠‏ الفصول الأولى بالنسبة لك هي أساس كل شيء بعد ذلك . 


يهمني laa‏ أن تطلع على محتويات الكتاب في الصفحة السابقة ٠‏ فهي توضح لك بعض الأبواب 
التي سيكون من المفضل تجاوزها لك كمبتدئ ٠‏ أو كمحترف ایضا . لذا فضلا gl‏ كنت تجاوزت 
الصفحة السابقة أن تعيد النظر فيها مرة أخرى. 
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في کل الکتب التي قرأتها باللغة العربية - أو آغلبها — كنت أجد lcgi‏ مع pac‏ الراحة مع ácljá‏ 
الترجمة ٠‏ وفي Jig‏ هذه الحالات كنت افضل الاطلاء على الكلمة Anil‏ باللغة الإنجليزية. 
lag‏ هو الاسلوب الذى حاولت قدر الوستطاع انتهاجه Youn‏ هذا الكتاب . 


هناك بعض الترجمات لا gui‏ سينة (Jig ٠‏ الجمل السرطية وحلقات التکرار کترجمة لكلمتي 
Loops g 5‏ ۰ هناك ترجمات Jal gari Igy‏ جودة ولکنها لا تعد سین Jig‏ تعریف 
ال Class‏ على (aia) ail‏ وتعریف ال Interface‏ على (Aaalg) lail‏ . المتغیر بديلا ل 
Variable‏ وهكذا . في هذه الحالة ستجد في العادة تم ذكر الترجمة مرة واحدة بدیلاً عن 
ذکرها في کل مرة ٠‏ آما ترجمة Jig‏ (المشیدات ٠‏ الوهدمات all...‏ ( وخلافم فلم اترکها كلها 
plg‏ استخدمها کلهاء استخدمت فقط ما رأیتم مناسباً إلى حد ما وترکت البقية. 


وعلی کل ثق بانك لن azi‏ كلمة عربية pl‏ يتم ذكر الكلمة الاصلية لها في أي مکان . أيضاً لا 
تحاول الاعتماد على ترجهتي في ácljá‏ کتاب عربي Al‏ . فحتى اللحظة لا یوجد إي نوع من الاتفاق 
بين الکتاب على ترجمة آغلب مصطلحات الکومبیوتر فضلا عن أن نتحدث في اتفاق عن Agaji‏ 
مصطلحات البرمجة . 
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r ced 


فیحوال سنودیو 2008 


الباب الثانى تحویل نسختك من الفیجوال ستودیو 


Visual Studio 2008 من‎ Algl4ll النسخة‎ . 1 


يوجد عدة نسخة متاحة للتحمیل من 2008 Visual Studio‏ على موقع مایکر و سوفت. النسخة 
الکاملة Professional Edition‏ غير متاحة 35943 مجانية و لکنها مو جودة بصورة تجريبية لمدة 
90 یوم فقط. تجدها على هذا الر ابط : 


(n 59 رابط‎ 


http://msdn.microsoft.com/en-us/vs2008/products/cc268305.aspx 


النسخة التى يتم تحمیلها من هذا الرابط تکون على شکل ملف 150.* برنامج Power ISO‏ هو 
برنامج يستخدم لمحاحکاة و جود CD‏ أو DVD‏ فى الملفات التی يتم تحمیلها ولا بد من و جود 


. ص الخاص بها‎ pal 
من هنا:‎ Power ISO یمکنک تنزیل برنامج‎ 


رابط هي 


http://www.freedownloadscenter.com/Utilities/Backup and Copy Utilities/Powerl SO.html 





اذا كنت ترغب فى الترقية للنسخة الكاملة « قم بطلب ال Product Key‏ من مایکروسوفت من هذا 
اثر ابط : 


A 59 رابط‎ 


http://msdn.microsoft.com/en-us/vs2008/products/cc263903.aspx 


ومن ثم قم باختیار Add or Remove Programs‏ و قم باختیار 2008 Visual Studio‏ ومن ثم قم 
باختیار Change/Remove‏ ... قم بادخال ال Product Key‏ الذي قامت مایکرو سوفت بارساله 


لک . 
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الباب الثانی تحمیل نسختك من الفیجوال ستودیو 


Visual Studio 2008 من‎ 7uilagll النسخ‎ 2 


اضافة للنسخ الكاملة التي توفرها مایکر وسوفت. توفر آیضا حلول مجانية للمطورين» تجدها جمیعا 
على الرابط التالي: 


رابط هج 
http://www.microsoft.com/express/product/default.aspx‏ 
هذه النسخ ال Express‏ اقل في الامکانیات من النسخ الکاملة (gist Professional Edition‏ تعد 


الحل الأكثر استخداما من قبل مطوري الدوت نت › تجد النسخ التالية في الرابط السابق : 
التسكة البر نامج 


نسخة من ال .2008 net‏ بآسلوب كتاية ال Basic‏ على بيثة 


۲ Visual Basic'2008 -= - 
Express Edition — — 


net Framework. تطویر‎ 


Productivity that is ideal for first time or casual 
Windows programming. 


http://go.microsoft.com/?linkid=7653517 


نسخة من ال .2008 net‏ بأسلوب كتاية ال CH‏ على بيئة تطویر 


net Framework. 


A great combination of power and productivity 
for the Windows developer. 


http://go.microsoft.com/?linkid27653518 


نسخة من ال .2008 net‏ بأسلوب ككتاية ال Ctt‏ على بيثة 


Horsepower with a finer degree of control than‏ نطو بر net Fra mework.‏ تستخدم لإنتاج التطبيقات المختلفه 


other Express Editions. 





http://go.microsoft.com/?linkid27653520 


کر din‏ تطویر مبنية agi .net Framework te‏ لک آدوات 


Express Edition 


متطورة لإنشاء cL cda‏ ویب متقد مه 


An easy to use environment for dynamic Web 
application development. 





http://go.microsoft.com/?linkid27653519 
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الباب الثانى تحمیل نسختك من الفیجوال ستودیو 








SOL Server 208‏ * نظام قواعد البیانات المشهور. یوقر لك نسخه مجانية لانشاء 


Express 


Net من‎ Sao! بر‎ E التعامل‎ Algo قو اعد بیانات‎ A lightweight, feature-rich, powerful database 


for Windows and Web data-enabled needs. 


» Learn more 





http://www.microsoft.com/express/sal/default.aspx 


aai‏ آدوات Sale‏ و سوفت الجديدة التى تسهل عملية slur‏ ال 
Microsoft®‏ 


mash-ups وال‎ 5 Popfly: 





http://www.microsoft.com/express/popfly/default.aspx 





الجدول 2. 1. النسخ Express‏ المكونة لبيئة التطویر net Framework‏ 


3 ترقية مشروعك الذي يعمل على 2005 VS‏ إلى 
VS 2008‏ 


یمکنک فتح نسخة من مشرو Soc‏ المبني من خلال .2005 net‏ لیعمل على .2008 Det‏ للاستفادة 


من خصاصه . 


© قم بفتح المشروع من خلال 2008 VS‏ و سیظهر لک معالج الترقية مباشرة . 

© قم باختیار Next‏ . 

© قم باختیار عمل نسخة احتياطية من الملفات. قم باختیار المکان الذي تود حفظ النسخة 
القدئهة احتياطيا قك 

. Finish قم باختيار‎ e 

© سیتم انهاء الترقية ۰ وستحصل على تقرير بالانتهاء بعد انتهاء العمل . 

e‏ حتی اللحظة فان مشروعک يعمل من خلال 2008 ولکنه لا زال متوافقاً مع 2005( لتعدیل 
الخصائص لتصبح متوافقة مع 2008 فقط قم بالخطوات التالية: 

e‏ من Solution Explorer‏ قم باختیار خصائص المشرو ع. 

© من التبويب Compile‏ قم باختیار Option Infer‏ إلى .ON‏ 

Net لیصبح‎ Target framework قم باختیار‎ Advanced Compile Options ومن‎ e 
net Framework 2.0. من‎ Yas Framework 3.5 
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الباب الثانی تحمیل نسختك من الفیجوال ستودیو 


ON! ©‏ سیکون علیک إضافة بعض المراجع التي توجد تلقائیا مع 2008 في أي مشروع قم 
بمعرفة الخیارات (QM‏ تريدهاء قم بالانتقال إلى References‏ وقم باضافة المراجع 


المطلو بة. 
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et ال‎ 2g الجدید‎ 
2008 


الباب الثالث الحدید مع ال 2008 net‏ 

في هذا الجزء من الکتاب ستساعدني على افتراض نقطتین هامتین. النقطة الأولى هي انك تود 
Goal‏ بتعلم2008 aba. net‏ الثانية آنک لم تبرمج للمرة الأولى 6 سنتحدث في هذا الباب 
لبعض الوقت عن التقنيات الجديدة التي ظهرت في .2008 net‏ . فلو لم کن را في الأساس 


فلن يضيرك أن تقلب صفحات هذا الباب لتنطلق مباشرة للباب التالى . 


المقصود بهذا الباب ليس فقط التقنيات العامة الجديدة التي ظهرت مع. 2008 net‏ بل كل 
التقنيات التى أصبحت تلقى الدعم الكامل داخل إطار عمل Det Framework.‏ من تقنيات فقط 
Gilly‏ سیتم شرحها بدورها في دروس منفصلة لاحقا c‏ آما الجدید في عالم البر doe‏ فسیتم التعرف 


عليه في دروس قادمة . 


Silverlight Ajai . 


كحزء من سياسات Sule‏ و سوفت الرامية إلى محاو له تملكت أغلب المفاتيح الر تیسیه فى 
مجال التقنية والتكنولوجيا كانت تقنية Silverlight‏ كمحاولة لزعزعة استقرار محركات Flash‏ 
على عرش الويب ححل أمثل للتطبيقات التي تستخدم الملتيميديا المتحركة أو الاعتماد على 


وربما بعد أن أحست شركة Adobe‏ المالكة لمحرك Flash‏ بالخطر - أو ریما في سياق 
تطويرها لمحركهاء من يدري ! - بدأت تحركها في التطوير السريع لمحرك فلاش الذي لم 
يشهد تغييرات جذرية مند اشترت شركة Adobe‏ حقوقه من Macromedia as å‏ . فأصبح 
لشركة Adobe‏ الآن ثلاث محركات تعتمد على Action Script‏ آو لها وأشهرها هو Flash‏ ومن 
شم تقنیة Flex‏ واخیرا تقنية Lad. Apollo‏ دخلت SUN à£& L5‏ علی خط المنافسة من SUS‏ 
منتجها JavaFX Script‏ وهذا بالتآکید سینصب في مصلحتنا في النهاية ۰ وریما تکون النقطة 
یتمیز ال Silverlight‏ عن باقي محر کات الفلاش بدعمه لتشغیل فیدیو (tle‏ الدقة HD Video‏ 


. - على حد علمي لم تحاول شركة منهم دخول هذا المجال بعد - على حسب معلوماتي‎ Gilly 


she. 


الباب الثالث الجدید مع ال 2008 net‏ 


لتتعرف عن المزید عن هذه التقنية برجاء زيارة موقع Silverlight‏ : 
رابط هج 

http://www.microsoft.com/silverlight/default ns.aspx 
لتبداً بعدها بتجربة امکانیات‎ (Get Silverlight ¢ من الرابط الموضو‎ Silverlight بداية قم بتحمیل‎ 


و قدرات Silverlight‏ . 


قم بتحمیل Gold pS!‏ وعمل Setup‏ له » ومن ثم قم بتجربة الموقع مرة آخری 6 واستمتع بامکانیات 
Silverlight‏ ... و da M‏ الفرق . 


جرب المواقع التالية والتي تعتمد ایضا على تقنية Silverlight‏ : 


صور 8 المو قع 


http://silverlight.net/samples/1.0/Page-Turn/default.html 





http://www.yeejie.com/silverlight magazine/ 





الجدول 3. 1. بعض المواقع التي تعتمد على تقنية ال Silverlight‏ 
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اللاب الثالت الجدید مع ال 2008 net‏ 


LINQ ^uiai 2 


تقنية $2320 من مایکروسوفت فى مجال قواعد البیانات . Coo‏ تثیح لك هذه النقنیه 
تحویل الاستعلام إلى جزء من لغة البر مجة Les‏ یتیح لک التعامل مع الجداول والحقول والکائنات 
بصورة مباشرة من خلال Aad‏ البرمجة . 


حمتال سريع یمکن افتراض Alem‏ الاستعلام هده: 


SQL ۱ Riva 





Select companyname from customers 


يتم تنفید‌ها باستخدام أي طريقة ... ليس هذا ما یعنینا . ولکن تجد ناتج الاستعلام فى 
RS.Fields("FieldName")‏ مثلا cou‏ طريقة القراءة » حيث تستطيع قراءتها « لعمل استعلام آخر 
یمکنک القراء2 من جديد ۰ یمکنک عمل LOOP‏ عادية del alt‏ ومن ثم البحث في الکاتن بالطريقة 
العاديك: 


VB.NET 


Do While (Rs.Read()) 
Console.WriteLine(Rs.Fields("CompanyName")) 
Loop 


Console.WriteLine( Rs.Fields("CompanyName")); 


} 
while(Rs.Read()); 





كان هذا هو الاختیار المتاح لک للتعامل مع قواعد البیانات . آما الآن فقواعد البیانات يتم 
التعامل معها على شکل Classes‏ نها Members‏ و Methods‏ و Functions‏ و لها Operators‏ خاصة 


بها » لنفتر ض هذا الآمر من داخل ال NET‏ مباشر ة. 
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اللاب الثالت الجدید مع ال 2008 .net‏ 


VB.NET 


Dim queryResults = From cust In customers _ 
Select cust.CompanyName 


CH 


var queryResults - from cust in customers 
select cust.CompanyName; 





والان آصبح بامکانک التعامل مع 011612771511155 كفتة مباشرة لها خصائصها 


و حقو لها التى أصبح بامكانك قراءتها مباشرءة ۰ سنتعرف فى باب احق عن هذه التقنية بالتفصیل . 
WPF midi .3‏ 


واحدة من التقنيات الجديدة التي شهد WinFX‏ ظهورها إلى النور وهي اختصار ل 
Windows Presentation Foundation‏ تعتمد على تقنية آخری هي XAML‏ وهي لغة تستخدم 
لوصف الواجهات ثنائية أو حتى ثلاثية lod!‏ أثناء عملت على WPF‏ من خلال2008 Net‏ يتم 
توليد كود XAML‏ بصورة فورية .فیما يظل بامکانک ايضاً الكتابة ب XAML‏ إن أردت . يتم الفصل 


الكامل بين ال XAML‏ والكود العادي كما كان يحدث في صفحات الويب . 
لماذا استخدام WPF‏ ؟ 


الفصل الکامل بين لغة البرمجة وبين التصمیم باستخدام XAML‏ قادنا إلى ظهور حزمة من 
برامج التصمیم المتخصصة التي تولد كود XAML‏ ۰ تخیل نفسک تصمم بر نامجک على 
فوتوشوب i‏ أو على فلاش وتکتب الکود في ]06. ۰ أليس هذا سیمنحک مزیدا من التحکم وقوة 
التصمیم التي لم تكن لتتاح لک لو كنت أكملت التصمیم على Visual Studio‏ المصمم أصلا 
لخدمة الكود وليس التصميم c‏ ايضاً ستجد مجموعة من الحزم الجاهزة التي ستساعدك على تجميل 
وتحسين مظهر البر نامج. 


قبل النهاية. إذا كنت متابعا معنا فأنت بالتأكيد قمت يتحميل2008 net‏ أو على الأقل 


cnet Framework 3.5.‏ لذا فأنت مؤهل للاطلاع على هذه الأمثلت. وشاهد الفرق بينها وبين 
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الجدید مع ال 2008 .net‏ 


الباب الثالث 


الواجهات التقليدية » ریما لا تحتاج إلى تحميل البرنامج dasa‏ اطلع على الفیدیوهات المو جودة أو 


تماذج الصور » و كلي 445 انك ستغیر مفهو مک حول جمال الواجهات إلى الأبد 


صور ô‏ المو قع 
http://blogs.msdn.com/tims/archive/ 2007/02/02/ great-‏ 
wpf-applications-6-fnac-com.aspx‏ 


http://blogs.msdn.com/tims/archive/ 2007/03/05/ great- 


om + E 


۲ : . Welcome to Roxio Central 1 
wpf-applications- 12-roxio-central.aspx 


http://blogs.msdn.com/tims/archive/ 2007/02/09/ great- 
wpf-applications-8-notescraps.aspx 


Great WEE Application: an ius g Wher cond abou is application ix thas irs 
ades 1 1 5 ril ber ims MAP. anie ti تسیا‎ t لوجر‎ 

Morahan direct HT 

| Shanda (omi | 

- esi بابلا‎ Tires, 

TE Merth Face 

قاس - 

Chafee App 


A. Offer In mest in the ويد قيس‎ office 
We reat rfi af aguas iiu Lathe bar يبص‎ | 
irai + يبل زه‎ 


> كارا 


uM c | 

| Mier noira lass Fieri & a note creates] eth ATT 
1 

0 


This bored انعو‎ 





الجدو J‏ 3. 2. بعض الفیدیوهات لتقنية ال WPF‏ 


الباب الثالث الجديد مع ال 2008 net‏ 


Expression مجموعة‎ .4 


لنعد إلى الوراء قليلا في عملیه التصميم . Co‏ یقوم المصمم برسم الواجهه على 
الفوتوشوب أو الفلاش أو غيره من برامج التصميم 60 يتم لاحقا تقطيع الصور ووضعها في 
الصفحة. أو برمجة بعض الأوامر والحركات من خلال Flash‏ ومن ثم نقلها لموقعک أو 


لبرنامجت ... وهكذا » تجد فصلا tata‏ فن Arles‏ التصميم وبالبر محه. 


OX! Lai‏ ومع ستوديو EXpression‏ كاستديو اعلنت مايكروسوفت عن تطويره لاحتياجات مصممي 
التطبيقات » حيث أصبح ot‏ بامکانک استخدام برنامج تصميم من انتاج مایکر و gu‏ 9 يقوم بانتاج 
كود XAML‏ يمكنكت استخدامه فى تطبیقاتک مباشرة .» كما یمکنک البرمجة من 


خلال Expression Blend‏ أيضا. 


یصدر MS Expression‏ مع أربع تطبيقات رئيسية « Blend‏ لتطوير الملتيميديا والصور والمؤثرات 
الحركية - شديد الشبه ببرنامج فلاش - . التطبيق الثاني هو DESIN‏ وهو موجه بالاساس لخدمة 
تطبيقات الويندوز - شديد الشبه بفوتوشوب - الثالث هو #جل ال WEB‏ حيث آصبح تصميم مواقع 
الإنترنت بمستوى عالي جدا > وهو التطور ل Microsoft FrontPage‏ و لکن بامکانیات مكف عدا 
من اجل دعم AJAX‏ و XAML‏ ۰ خیر مخصص للتعامل مع الميديا والفيديو وخلافه باسم 


. Expression Media 


التطبیق الأكثر شهرة agin‏ هو Blend‏ حيث آصبح تحویل موقعک أو برنامجک إلى موقع غني 
بالحر A‏ وبالمو‌ثرات و خلافه امرا فى غاية السهو لة ۰ هذه هی الشاشة الرئيسية للبر نامج: 
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wow لب‎ 


Tv 


& | 
i 
¥ 


1 





N 8 >< *‏ ا ل 


T oes وج ودوك"‎ 





RS OM AE e ع‎ 





- ja 3 Hd 





.l.3 535352‏ استدیو ال Expression Blend‏ 
یمکنک تحمیل نسخة تجريبية لمدة 21 یوم من موقع مایکروسوفت الر سمي - أو من موقع 
التقنية - حيث قامت مایکر و سو فت بشراء التقنیة من إحدى الشر کات ال Partners‏ لمایکر و سو فت 


كما سنتعر ف على هذه التقنية بصورة مفصلة ضمن دروس لاحقة فى هذا الکتاب. 
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الباب الثالث الجدید مع ال 2008 net‏ 


WCE Auai .5 


هي إحدى تقنیات مایکر و سوفت الجدیده التي تخدم البرامج التي تعمل في وضع اتصال € 
سواء على الشبکات أو برامج مثل الماسنجر و خدمات البرید الالكتروني و خلاقه ... باختصار أي 
برنامج يتم فيه ربط جهازین ببعضهما فهده التقنية Age go‏ لهذا pall‏ ض. 
بعد Winsock‏ في فیجوال بيسك 6 وفئة Sockets‏ مع .net‏ . جاءعت LY‏ مایکروسوفت بتقنية 
جديدة من اجل عملیات الاتصال تحت اسم WCE‏ وهي اختصار Windows Communication J‏ 


.Foundation 


Server And لماذا هذه التقنية . فباختصار لأنك ستستطیع عمل تطبیق عمیل وخادم‎ Lei 
آمن ومتکامل من خلال اقل من عشرة اسطر فقط من الکو د!!!‎ Client 
سوف نتطرق تلمقارنات بینها‎ WCF كما آنها أسرع من التقنیات السابقة. في درسنا المفصل عن‎ 


وبين باقي التقنیات. 


Code Refactoring .6 


إحدى الممیزات الجديدة التي cle‏ بها ال IDE‏ الخاص بالفیجوال ستودیو . الفكرة باختصار 
هي مجموعه من الوسائل المساعدة على تنظیم الکود وتسهیل التعامل معه. 
في العادة يتم توفير مثل هذه البرامج على شکل برامج مساعدة» ومع 2008 zai Net‏ واحد منها 
مضمن بصورة افتراضية ۰ تمکنک هذه الإضافة من انشاء خصائص لمتغیر بضغطة زر . لدمج 
المتغیرات في c Ol‏ التعدیل والتغییر في Glial)‏ والبار Of pire‏ 9 خلاقه كل هذا بواجهه مرتية. 
ایضا هناك برامج آخری مثل هذا البرنامج لأجل فیجوال بیسک Refactor! for Visual‏ 


Basic 58‏ . البرنامج مو جود على هذا الرابط: 


http://msdn.microsoft.com/en-us/vbasic/bb693327.aspx 
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و هذه صورة لبعض التعديلات التى يضيفها على نافدة كتاية الکو د: 


Farmi.vb | Foml.vb[Dedsgn] | Start Page 


- X 
“Form wo Add These Twotiumbers w | 
ا‎ 
: LE 
Private Sub AddTheseTeoNumers (ByVal & is Integer, ByVal b As Integer, FEET Addition As Integer) 
dd = | b 9 ۰ 
oC miam MUR Reorder Parameters 
End Sub — 
; PE 
Private Sub Burtoni Click(ByVal sender As System.Object, ByVal © J Left Move the parameter left 
Dim c As Integer Right Mave the parameter nelit 
AdüTheseTwcNwbersil, $, c] ah Select the next parameter 
showRezultornButtaní[c) " r 
End Sub 5۱۱۱1۱۶ Tab Select the previaus parameter 
Hum Enter or Enter v” Commit changes | 
- Esc X Cancel changes 15 


Refactor! For Visual Basic 2008 .2 .3 الصورة‎ 


توفر مایکرو سوفت ایضا خاصية Code Snippet‏ وهی مضمنة بصورة افتراضية فى 2008 © 
تمکنک هذه الخاصية من ادراج كود كامل لعملية معينة بدون كتابة سطر واحد . يتم ذلک 
باختیار aeg‏ المطلوبه من قائمة يمكن التحديث فيها واضافة اکواد جديدة |( و کالعادة هذا 


البر نامج من اجل فیجوال بیسک وستجد مثیلا له من اجل سي شارب: 


رابط هي 
http://msdn2.microsoft.com/en-us/vbasic/bb973770.aspx‏ 


و OLD‏ صورة للبر نامج: 


DA 


الجديد مع ال 2008 net‏ 


3] CreateaTriangleShapeuzingsGraphicsPanhü 


= cm سروح‎ cmm ou 


الباب الثالت 





———— À —— د‎ = = 


- لا‎ Felders qi Synth j Mew lg] Save = من‎ Export 


: B 
>] Vas Banc 
fa) [gp مد‎ 
B- commen code pacer 
EHE hiris 
fol [x] Office Development 
=) [ag] en 
im [x] سر‎ 
Eg wredowgo-s 
A 53 Giph 
3 C3 Cete 
5۳ دا‎ 
زرا‎ Create a Bree af Pon Tee 
A] Crete ۵ Gam Bras 
2] Creste a Pen 
— dj Grete a Sold rash 
مكمعد لها‎ o Thane عجو‎ ung 5 
a) جامد‎ in لبط‎ (GIF 
-3[ Cram a Fed Elipse on a Wn 
a] Grew a led Rectansie en a 
لوا‎ Drews Line en à Windows Fom 
zu] Gea x Pet Chat 
a] Draw a غنيك‎ Band منوج‎ 
a] Drew s Shape nth Gradat FE 
X] سا‎ ed Eee 
- [aj ما‎ Gutined Rectangle 
Lo) Broa Ted an a Viiedew Form 
لت‎ Oger Verte! Tent oa Windows 
3i Ca Fonts 
arc Fatma 
3 Dg Sound 
[s [xp ۶ 
Macs | oram 





| Properties 


[Dim path as New GraphicsPath |} 
[Diz painrs4) As Point = [.. 





Iparkb.AdBLimes[posinras) | 





|Dim surface As Graphics = &PicrtureBOxs.CrenreGraphnics 
Jourfoce.DravPach (Gens, path) 


Code Snippet Editor .3 .3 الصورة‎ 


اخیرا ولیس آخرا اذکر بان هناك اصدارات تعمل علی 2005 فلیس الامر Lats‏ ب 2008 فقط ; 
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و لکنها خاصية اصبحت GYI‏ مضمنة افتراضياً مع 2008 Visual Studio‏ 








الباب الرابع مفاهيم Alu‏ ال net‏ الرنيسية 





1 لفات ال net‏ 


لا تعتبر net‏ لغة واحدة » بل هي عبارة عن معیار قياسي تستخدمه عدة لغات برمجة ... تم 
طرح هذا المعیار من قبل مایکر و سوفت حوالي العام 2000 و تبنت العدید من الشر کات هذا المعیار 
لیکون قاعدة انطلاقها في لغات البرمجة . حيث تتميز arom‏ هذه اللغات بان لها الکود المصدري 
نفسه ۰ وتترجم نفسها مروراً بنفس المراحل ولا تختلف سوی في طريقة الصیاغة ... سنقوم 
بالتعرف على المکونات الاساسية لمحرك Engine ail‏ كاملة .. ولکن قبلا لنتعرف على يحض 


اللغات التی تبنت معیار Net‏ 
قبعد اللغات التی تصدرها مایکروسوفت بنضها والتی تضم JH.net VB.net 2 CH‏ ۰ اضافة 


C++/CLI!‏ و ای ۰ 0 هناك اللغات الآخری التى تدعم معيارية fis .net‏ باسکال 


و دلفی ۰ 92999 d‏ و حتى LISP.net‏ لبرمجة تطبیقات الذحاء الاصطناعی. 


لا ننسی ايضا الاصدارات التی تعمل على LINUX Axa‏ » ف MONO‏ متلا يدعم معيارية net‏ تحت بيئة 


اللینکس .. لكن فى النهاية فقد كان المنتح الاساسی لخدمة بيئة .net‏ هو Aut) mud « CH‏ 
VB.net Lào Y‏ ربما لاغراض تسويقية وبداً بعدها تتابع اللغات ‏ لا ننسی ان انضمام TH‏ للمجموعة 


قد یجعله Logs‏ ما الاسلوب رقم 1 للبر مجة بتقنية Net‏ 


تستطيع في النهایه الاطلاع على مجمل اللغات التى ندعم هذه المعيارية مع بعض التفصيلات عنها 
هنا: 


http://www.dotnetlanguages.net/ DNL/Resources.aspx 
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اضافه 
gà‏ ناب > 


Pro C# 2008 .NET 3.5 Platform -Exploring the .NET universe using curly 
brackets 


يطرح الكاتب تساه لا ويجيب علیه. لماذا کل هذا العدد من لغات MET‏ ما دام سیتحو لوا ee‏ فى 


النهاية إلى maneged code‏ يجيب على هذا التساوؤل بعدة اسباب : 


- ان العديد من المبرمجين حساسين جدا dal‏ التي يبرمجون بها ويحبونها « فبعضهم يفضل 
اسلوب الكتاية ب : والأقواس ... فيما يفضل البعض الآخر الاسلوب الأكثر قابلية للقراءة مثل 
Visual Basic Gu Syntax‏ . لا ننسى هنا الدور التسويقي ومحاولة جذب جميع المبرمجين 
للعمل مع Net‏ حيث یمکن لمبر مجي CH‏ و Basic‏ و C++‏ و Fortran‏ و Delphi‏ العمل جمیعا 
تحت منصة واحدة » وهدا ما یجعل انتقالهم بینها اسهل اضافة لتجميع المبرمجین تحت مظلة 


واحدة. 


AES Ae -‏ الفریق الواحد مبرمجین بلغات ا الفریق الواحد 
مبرمجین یبرمجون بعدة لغات ویتم اخراج منتج واحد في النهاية بعد ان كان من المفضل ان 
یکون المبرمجین لنفس اللغة ۰ هذا یفتح الاختیارات كثيرا امام الشرکات في اختیار 
المبر مجین. 


sy‏ الات fence‏ سا هوه (ages ET ein tas‏ تا IAS‏ ات Bcc)‏ فى 
العملیات الرياضية والمعادلات مثل الفورتران ۰ الکوبول مميزة ایضا في التعاملات المالية 
والعملیات الحسابية ... هكذا تستطیع الاستفادة من هذه الممیزات و تدمجها جمیعا مع بعضها 


. net. ال‎ aio تحت‎ 
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الباب الرابع aiu pualag‏ ال net‏ الرئيسية 





net. Ail العناصر الأساسية‎ . 2 


تقدم Net‏ بين طياتها ثلاث pole‏ رتیسیه تتحكم في دورة slim‏ البرنامج المعنمد على 


بيئة Net.‏ هذه التقنیات الثلاث يرمز لها pban‏ بأسماء: .CLR, CTS and CLS‏ 


تمثل ال CLR‏ ال Runtime Layer‏ للبرنامج « 455( اختصار ‘Common Language Runtime;‏ 
مهمته الاساسية هي التحكم في الأنواع والمكونات الرئيسية لل - met‏ المكتبات والدوال - وحجز 
المتغيرات في الذاكرة وتقسيم الذاكرة والتعامل معها › ال Threads‏ والتنفين اضافة لبعض 
اختصارات الأمان 2" ياختصار شديد تشكل ال CLR‏ المر Ale‏ الاساسية لترجمة آوامر Met‏ وتنفيذها 


على جهاز الكومبيوتر. 


ال Common Type System‏ والذي يتم اختصاره ب CTS‏ مختص بالتعامل مع انواع البيانات 
المدعومة للعمل ضمن بيئة ]۰.61 وكيف يتم التعامل بينهم وبين بعضهم . مع مراعاة وجود بعض 
الانواع غير المدعومة في جميع Net Glin‏ والتي توجد بها اختلافات بين بيئة وأخرى . Lei‏ 
الأخيرة وهي Common Language Specification‏ والتي يتم اختصارها بالرمز CLS‏ فهي مختصة 


بالتعامل فقط مع انواع البيانات القياسية والمدعومة من جميع اصدارات بيئة Net‏ . . 


وبهذا نستطيع ان نقول ان البرنامج المصمم باستخدام CH‏ مثلاً ويستخدم فقط الأنواع المتاحة في 
CLS‏ هو متوافق تماما للعمل على نفس توزيعة NET‏ من اجل العمل على LINUX‏ المسماه MONO‏ اما 
لو خرجت خارج نطاق ال15 إلى CTS‏ فلن تضمن ان يتم تنفيذها بنفس الكفاءة في كل الأنظمة 
المختلفة. 
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Base Class Library ال‎ .3 


توفر net anas‏ ما یعرف باسم Base Class Library‏ وهي عبارة عن مجموعة من الفتات 
5 تحتوي على الاوامر والدوال الرئيسية في بيثة. net‏ هذه Glial!‏ موجود في جمیع بيئات 
۰ ويتم التعامل معها ومع خصائصها بنفس الطريقة « و تضم العناصر الاساسية مثل التعامل مع 
الملفات وقواعد البیانات › Threadsgi‏ ال XML‏ .ال GUI‏ و خلافه. وتساهم هذه المکتبة في جعل 
اسلوب البر مجة موحد و آسهل. وقابل للتکامل مع أي من اللغات التي تدعم Net‏ 


هذا الجدول لبعض محتویات ال BCL‏ من مایکر و سو فت: 


۱:۱۵ pace Description 


System This namespace includes all the essential support you need for your programming, including base types (String, Int32, DateTime, 
Boolean, etc. ), essential environmental support, and math functions, to name a few 


System. CodeDom all the support necessary to be able to create code, and run it, on the Ay 


Zystem.Coligctians The &vsterm.Collactionz namespace contains interfaces and classes that define various containers, such as lists, queues, bit arrays, 
hashtables and dichonaries. 


System.Disgnastics All the classes you need to diagnose your application, including event logging, performance counters, tracing, and process 
management APIS. 


System. Globalization This namespace includes fundamental support for Globalization, used throughout the rest of the Framework 


System.IO Includes fundamental Stream support which can be used by anyone, and then specifically targets the Filesystem (wie File and 
Directory manipulation classes), SerialPorts, and Decompression 


System.Resources Usad to allow- an application to be translated into multiple languages, and then display the appropriate text based upon the current 
users language selection 


ZSystem.Text This namespace includes support for encodings, and Stmngbuilder 


System.Text.RegularExpressions | This namespace includes regular expression support, for robust parsing and matching of string data 





الصورة 4. 1. بعض مکونات ال BCL‏ - من ال MSDN‏ - 


وكترجمة سريعة ( يحتوي SYSTEM‏ على کل ما تحتاجه لتطویر تطبیقات Met‏ يحتوي ایضا 
على ال Data types‏ والدوال الاساسية للعمليات الحسابية .. الخ ۰ باختصار شدید تجد 


أن System‏ هي محال الأسماء الر نيسي والتي تحتوي تحتها على باقي الفئات. 
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مجال slow!‏ الو صف 





System.CodeDom‏ خاصة بكتابة الاکواد و تنفید‌ها 
System.Collections‏ تحتوي على عدد من الانواع „Lists, Stack Jis‏ 
SV Sic Cll ¢ babeo BIOS‏ يضم ال Events‏ وال Process,» Counters‏ 


System.Globalization‏ یتعلق بتشغیل برنامجک على نظم مختلفة من Gus‏ اللغات 


و الاعدادات الاقلیمبه و خلاقه . 


System. 10‏ كل ما يتعلق بعرض و استقبال البيانات سواء عن طریق 
الملفات والمحلدات ۰ او عن طریق مناقد الکو pd gure‏ مثل 
Serial Port,‏ 


SyStem.Resources‏ ال iti Resources‏ تصف البرنامج ۰ يتيح لک عمل 
تطبیقات متعددة GLAU!‏ على سبیل المنال 
LEM Tec‏ كل ما یتعلق بالتعامل مع النصوص 


Regular Expressions التعامل مع ال‎ System.Text.RegularE 
xpressions 


الجدو ل 4. 1. بعض مکونات مجال الأسماء System‏ 


.net Assemblies . 4 


فى النهاية ومهما كانت لغة البرمجة وال Compiler‏ الذي تستخدمه لبناء تطبیقات «net‏ 
فان الکود يتحول فى النهاية ل intermediate language‏ وهو ما یعرف اختصارا IL‏ بالاضافة إلى 
بعض ال metadata‏ ۰ ویتم وضعه فى ملف اسمبلی قابل للعمل مباشرة selgu‏ على شکل EXE‏ أو 


على شكل dll‏ 
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سابقاً كان يرمز لل IL‏ باسم MSIL‏ وال MS‏ اختصار لمایکروسوفت c‏ اما OY!‏ فتمت اضافة 


اللاحقة C‏ کاختصار ل Common‏ بيدلا من MS‏ السايقة. 


يمثل ال IL‏ أو ال MSIL‏ المهام التي يقوم بها البرنامج والأحواد وما شايه ‏ اما ال metadata‏ 
فتحتوي على وصف لجميع الأنواع والفثات التي استخدمتها في بر نامجک . ملف الاسمبلي نفسه 
الذي يضم ال IL‏ وال metadata‏ يتم و صفه ب metadata‏ ایضا » يتم اضافة manifest‏ ايضاً لهده 
المجموعة » هناك حالات تجد برنامجک فیها lagi po‏ باکثر من ملف اسمبلي ۰ وفي هذه الحالة 
لن یکون لديك سوی manifest‏ واحد فقط في واحد منها یقوم بعمل البداية وربط الملفات مع 


بعضها البعض. 
5. ال CIL‏ 


لنفترض هذا البرنامج CH aib‏ من کتاب 2008 Pro CSharp‏ 


:; CGCalc.cs8 
using System; 
namespace CalculatorExample 
{ 
// This class contains the app's entry point. 
Class Program 
{ 
static void Main () 
1 
Calc co = new Calc); 
int ans = c.Add(10, 84); 
Console.Writebine( "10 + 64 i18 10).", ans); 
// Wait for user to press the Enter key before shutting down. 
Console.ReadLine(); 
) 
) 
// The C# calculator. 
glass Calo 


{ 


public int Aod(iBt x, int y) 
{ return x + y; } 





لو قمت بفتح الاسمبلي الناتج عن هذا الکود باستخدام أي تطبیق مناسب ILDASM Jis‏ ستجد 9531 3 
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-method public hidebysig instance ۱۳۳ J2 Nea خر ۱۳۱۲ ا‎ x,inesZ y) cil managed 
{ 
// Code size 9 (0x9) 
-maxstack 2 
21565515 Init (Ineo VvV o) 
1L DAD تا‎ 
1۲۲ OVO ۰ ۵ L 
TL 0002: Tl darg:2 
TESEO Tad 
Lb OUO ۰ Ml 
MOO OS eo qr e MITTERE لا‎ 
Ie BHO TS COC 
Li COCs eet 
۳ “end or method Cale: Ada 





حتی هذه Ale poll‏ . لم يتم تحويل الکود إلى .Platform-Specific Instructions‏ يتم ذلك في 
المرحلة التالية من خلال ما يعرف باسم Jitter‏ والذي يقوم يترجمة الكود الناتج إلى كود مناسب 
لامكانيات الجهاز ونظام التشغيل الذي يعمل عليه البر نامج. 
بامكانكت التعرف على المزيد عن هذا الموضوع من هذا الرابط من مایکر و سوفت : 
رابط في 

http://msdn.microsoft.com/en-us/library/f7dy01k1(VS.80).aspx 


MetaData ال‎ .6 


متال على MetaData‏ التی تستخدم لوصف كل محتویات الکود من دوال وفئات وواجهات و خلافه 


Assembly Metadata 
TypeDef #2 (02000003) 





TypDefName: CalculatorExample.Calc (02000003) 
IE دا‎ . biens eese | |Atisolayour | Class] 
[Ansi lass ses eu ات‎ eee] 21009391 
Extends : 01000001 [TypeRef] System.Object 
Method #1 (06000003) 


MethodName: Add (06000003) 

Flags : [Public] [HideBySig] [ReuseSlot] (00000086) 

RVA SG 000002070 

ImplFlags : [IL] [Managed] (00000000) 

CallCnvntn: (DEBAULT [ 

hasThis 

ReturnType: I42 Arguments 

Argument #1: I4 

Argument #2: I42 Parameters 

(1) ParamToken : (08000001) Name : x flags: [none] (00000000) 
(2) ParamToken : (08000002) Name : y flags: [none] (00000000) 
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یقوم الجزء السابق بوصف الکود الذي قمنا بکتابته في آول متال ۰ یمکنک وانت تعمل على NET‏ ان 
تقوم بالاطلاع على هذا الکود › اغلب النقاط واضحة و تشرح نها . اعتقد انه ريما لن تحتاج ert‏ 


للتعدیل اليدوي على هذا الملف. 


Manifest ال‎ ./ 


نسخة واحدة فقط من هذا الملف لكل برنامج حتی لو كان هناك اكثر من Assembly‏ 


حاله و جود اكثر من ملف . هذا مثال على كود من هذه gt!‏ عبه: 


Assembly Manifest 


.assembly extern mscorlib 
{ 

NS OE B SOD‏ كد woken‏ 128 1 انار 
ا Pere‏ 

) 

-assembly «Cake 

۱ 

.hash algorithm 0x00008004 
VEE وبا‎ OTORO 

) 

.module Calc.exe 
.imagebase 0x00400000 
-Subsystem 0x00000003 
.file alignment 512 

PCOmi bags sO OC COO 





Common Type System .8 


سنركز في هذا الموضوع المختصر على CIS‏ حيث سبق وذكرنا انه مختص بوصف الانواع 
المدعومة في بيئة Net‏ وكيفية تعاملها مع بعضها البعض e‏ هذه الأنواع هي: 


Class - 
Interface - 
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Structure - 
Enumeration  - 
Delegate - 


سنتعرف على طريقة تعریف کل منهم في مر حلة مختلفة من الکتاب › إلا ان ما یتعلق بنا OW)‏ 
خلال الدرس الخاص Ua‏ هو كيفية تعامل ال CTS‏ معهم . اذا كنت مبرمج تطبیقات عادية فلن 
تحتاج pact‏ 48 اکثر من فائدة ال CTS‏ اما مبرمجو الأدوات او الذین یقومون ببناء Compiler‏ او 
C USENET ER SUE M‏ تون ارف على الخضصائصن الاساسية » سار مثالا 


مختصرا علی Class‏ 


هناك ما یعرف Abstract Class aul‏ . ال Y Abstract Class‏ يحتوي على اي كود - شدید الشبه 
interface - Ju‏ بحيث يمكن بعد ذلك عمل وراثه له قبل البدء فى استخدامه حيث انه لن يحتوي 


على سطر كود واحد › هذا مثال لما یعرف باسم Abstract Class‏ 


class abst class 

{ 
if SOMME x, int y); 
string name; 


VB.NET 


lass abst class 
Private Function sum(ByVal x As Integer, ByVal y As Integer) As Integer 
End Function 
Private name As String 

Erd Class 


والآن من ضمن جدول خصائص ال CTS‏ التي ستحتاج الیها فیما لو رغبت في التعامل مع CTS‏ في 


الکو مبایلر الخاص يبك مثلا . ستجد الخاصية Is the class abstract or concrete‏ » ستحتاج قبل 





اخبار CTS‏ بان لديك Class‏ هنا ان تخبره ایضا يمثل هذه النقاط. 


ملا حظة 


لا تقلق لو al‏ تتضح لدیک jis‏ هده الخصائص ۰ في دروس قادمه ستشرح بالتفصيل كيفية 


Classice‏ وانواعه و طر 45 المختافة. 
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CTS Members 1 .8 


بعد ان قمت بوصف الأنواع المختلفة من خلال CTS‏ یمکنک اضافة اي sac‏ من ال Members‏ إلى 


کل منهم « ال Members‏ یمکن ان تکون متغیرات عادية لحقول Fields‏ « يمكن ان تکون ایضا : 


constructor, finalizer, static constructor, nested type, operator, method, property, 


indexer, field, read-only field, constant, event 


کل واحد من هذه الأعضاء ندیه ما یعرف باسم (Visibility trait)‏ أو مدى روية « يمكن ان یکون 


Public‏ مثلا بحیث یمکن رؤيته من خارج الفئة Class‏ .. الخ Lea‏ سنتعرف عليه لاحقا ضمن 


دروسنا » ما یعنینا هنا ان نعرف ان كل هذه الخصائص يتم توصیفها فى CTS‏ 


CTS Data Types .2 8 


يحتوي ال CTS‏ ایضا على ال Datalypes‏ المدعومة من قبل net‏ . هذا الجدول من کناب Pro CH‏ 
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58 مع توضیح لل keywords‏ للغات net‏ الاساسية الثلاث: 


Table 1-2. The Intrinsic CTS Data Types 


GTS Data Type 


System 
System 
System 
System 
System 
System 
System 
System 
System 
System 
System 
System 
system 


Byte 
.oByte 
.Inti6 
.Int32 
.intóo4 
UInti6 
.Ulnt32 
UlInté4 
.Single 
Doub le 
.Object 
Chal 
String 


Sys tem. Decimal 
System, Boolean 


VB .NET Keyword 
Byte 
SByte 
Short 
Integer 
Long 
UShort 
UIntegsr 
ULong 
Single 
Double 
Object 
Char 
String 
Decimal 


Boolean 


G8 Keyword 


byte 
spyte 
short 
int 
long 
ushort 
uint 
ulong 
float 
double 
object 
char 
string 
decimal 
bool 


C++/CLI Keyword 
unsigned char 
signed char 
short 

int or long 

_ int64 

unsigned short 
unsigned int orunsigned long 
unsigned ^ inté4 
Float 

Double 

Object* 

wchar t 

String^ 

Decimal 

Bool 
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كل ما يهمك حمبرمج تطبیقات Gale‏ ان تعرف لمعلو ماتک فائدة ال CTS‏ كنوع من المعر aa‏ 
العامة لبنية net‏ الاساسية bof c‏ اذا كنت قد اعجبتت الفکرة و ترغب فى التعرف على المزید عن 


«CTS‏ فیمکنک البدء من هذا الر ابط: 


رابط هي 
http://msdn2.microsoft. com/en-us/library/ zcx1eble.aspx‏ 


Common Language Specification .9 


كما ذكرنا فى المو جز السایق ۰ ال CLS‏ هی subset‏ من ال CTS‏ تصف الحد الأدنى من 
المتطلبات اللازمة لنستطیع القول Of‏ هذه Gall)‏ تعمل تحت بيئة NET‏ ۰ ویمعنی آخر ۰ فان بعض 
محتویات CTS‏ اختيارية حيث یمکن ان تحدها فى يعض لغات .net‏ و لا تجدها فى الآخر ۰ مجموعة 


من محتويات CTS‏ تم تجمیعها فى CLS‏ لتکون اجبارية لكل لغة تستخدم بيئة net‏ للتطویر. 


ويتم اطلاق مصطلح CLS Rules‏ على هذه الشروط الاجبارية » ویتم توصيفها ولا بد من تطبيقها 
لكل لغة تستخدم بيتة Net‏ للتطوير. 


بالنسبة للغات CH‏ و VB.net‏ ۰ هناك مجموعة كبيرة من الخصائص التي لا يضمها ال (CLS‏ 
بامکانک معرفة اذا كان الكود الذي تستخدمه موجود ضمن CLS!‏ ام لا لمراعاة عملها على جميع 
أنظمة التشغيل من خلال اضافة الكود التالي أعلى الجزء الذي تود ألا يحتوي سوى على أوامر من 
CLS‏ : 


CH 


[assembly: System.CLSCompliant (true)] 


VB.NET 





«Assembly: System.CLSCompliant (True) > 


اذا كنت مهتما بموضوع ال CLS‏ یمکنک مواصلة القراءة من هنا: 


$9 رابط‎ 
http://msdn.microsoft.com/en-us/library/12a7a7h3.aspx 
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Common Language RunTime .10 


كما ذكر نا TEM‏ > فان ال CLR‏ تضم كافة المعلومات المطلوبة لیعمل كود ال Met‏ 
الخاص بك على الجهاز بغض النظر عن اللغة التي تمت بها كتابة الكود الأصلي» ولتقريب المنال 
إذا كنت مبرمج فيجوال بيسكت فانک مضطر لوجود msvbvm60.dll‏ على الجهاز ليعمل 
برنامجت المصمم بالفیجوال بيست و بالآدو ات الرئيسية . اما لو كنت مبرمج جاها فإنكت تحناج 
إلى JVM‏ على الجهاز الذي سیعمل عليه تطبیقک ... وینفس الطريقة .۰ فان ال CLR‏ هو الملف 
الو حيد الذي تحتاجه لیعمل تطبیقک المصمم تحت بيئة Net‏ على اي جهاز كو مبیو تر. 
ففي عالم ال .net‏ تحتاج لو جود مکتبة ال CLR‏ المسماه Microsoft  اراصتخا mscoree.dll‏ 
(Common Object Runtime Execution Engine‏ مع بدء برنامجک ومع بداية اشارة ملف 
الاسمبلی إلى هذه المکتبة یقوم ال CLR‏ بعمل cata! Load‏ الاسمبلی و قراء ال (metadata‏ يعمل 
Las! Load‏ لل Types‏ في الذاکرة الحية. واخیرا یقوم بترجمة اوامر البرنامج الموجودة في CIL‏ 
إلى platform specific instructions‏ كما اتفقنا سابقاً ليمكنه التنفين على جهاز ك ... اخیرا یبدء 
ال CLR‏ بتنفين برنامجک , وخلال عمل البرنامج سیقوم CLR!‏ بالتعامل مع الفثات الاساسية لل 
1 المو جودة في Base Class‏ إذا كنت تستخدمها في بر نامجک. 
هذا المخطط من ویکبدیا یوضح مراحل كتابة الکود حتی تحویله إلى Native‏ كود ومن ثم 


ند 0 : 


+e 


Source code Bytecode Native code 


C# compiler 
C3 
VB.NET compiler CLR 
VB.NET | MSIL code | ——— — — — — Native code 


Other compiler 








Compile time Runtime 
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الصورة 4. 2. مراحل تر dem‏ الکود إلى Native‏ كود مفهوم من الآلة. 
و کالعادة. )13 كنت ترغب فى معرقة المزيد یمکنلک البدء من هنا: 


e 


S9 رابط‎ 


http://msdn2.microsoft.com/en-us/librarv/8bs2ecf4(VS.71).as 


Object Browser استخدام ال‎ 11 


من قائمة View‏ اختر Object Browser‏ . ستظهر لك الشاشة التالية: 


Dieci Bersaeer - hirni Visual Sori 





Fie Edit ‘View Data Took Vest Anske Window Help 


See ee ALA 7ك‎ TEN | 2 [53 و‎ y EL EI 





M0 Object Brenner | Stet Page | - x ماگ‎ Fupioree TFS 
1 | Brea: All Cóenpanenti - = LPS G | 
5 | دوا بريه‎ - + Ww edd [Stem Codelom.Codenitiibutedsrareri? 

[) Syterm.Codebom 5 i Addfangersystem.CodeDom.CodeArtributeArgument 1 

be ممتيو عي ال مهي يلين‎ 5 Ad Rang رطع تیم بت تاج ددرت‎ lue او عم و‎ oliecrinm) 

ht م ع و اميت‎ ê LCodesrnbotenrgumsentiellectipng] 

C odem Codeditibatesrgument [1‏ جع در و سای بعش ی ] T‏ اڪ ی باه i ie‏ 

ds A 4 " عت‎ ms  CodelttnbutesrgurmnentCnllectinniSysiem.CaodeDom.CodeAttribute&rgumentt ollection| 

Contains) emi Cadebom.Ceda&ttribubeSrgurnerir]‏ ا marcos‏ ودرا 


۱ AF CodedttechiventStatement 
| 5 CodeAntibutesrgumernt 


3 ae اا‎ € eerti, Systeme ada im. Codehitiübte Agua 
1 - no aT 9 Remoren C edeDam.CadeAHrsbutelugumernt) 
i red Types ^ 

ميات CodeAtributeDeckestion‏ يق | 

4 "t Cade ما تعاطا تاک‎ adimi allertiarn 

وا سناو اه وم عبت f‏ | 

| =p CodellinaryOperateeEsprezxinn 

E a” CodeBiraryOperatecType 

i ۲ CodeCasrExpnestion 

قسن ها اعقو بنج ۶ و 

-Sr CodeCatchC lausec ection 

۱ Sr CodeCheckcumPragma 

ات ۲ £* | 

| "€ CadeCummentiiatement 

ماب "s Codec mmmentssstermentC‏ ر 

۱ ti CodeCampdelinit 


ui eram ONE tes نا خت سط‎ E 1 ۸ 











i Št CodeCendissnstabennent 
p Ur جاع يعدو عجوو‎ 





der . public int IndexOf: ۲۳۳, ۱ ۱ 9 | 
OO CodeDefaultialueExnrezsson 
q Te CodeDelegate remteExpressin Member of System. CodeDom CoteAthBadadrgumentGallection | 
E كك و ها وگ بان وله تموصماك ]عقو ده‎ 5 B 
4 P Vire iae aru ۲ 

ru eh ممح‎ Gets the index al the specified System. CodeDom CodeAttributeArqument object in the 


Wr ع‎ m 
& "E CodeDinectrve coleriion. BB ests in the collection. 
bp CodeDinecteeeCallectinm | 


v x CodeEntef الح‎ ad Parameters: 
Lo HUE CodeEventReferenteExorendien الاح‎ tae Tha Sustem Conde fee Pnndeattributa&rnumsnt.nhiart th locate im fhe rnlerfinn 0 071 





























y -‏ س س 





à aa = 5 :‏ سس در و = | SS ee‏ = سح 
تو ار ۰ T Min | Runs. 44 i — E Ohje ۰ ۱ ica IL‏ فك ری "rds. | uu M: Era‏ 4* 


الصورة 4. 3. ال Object Browser‏ في الفجوال ستودیو 
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من خلال هذه الأداة المتوفرة مع اصدارات Visual Studio‏ المختلفة . تستطیع استعراض كافة 
المکتبات والفتات الرئيسية قي. Net‏ و تستطیع ان تعرف مکانه و ملفات الاسمبلي التي یتبعها › 


لمزید من المعلومات عن اي منها یمکنک اللجوء إلى مکتبات MSDN‏ سواء المو 3352 في قائمة 


.MSDN او المو جودة على الانترنت مباشرة في موقع‎ Help 


Name Spaces rlgauill مجالات‎ 2 


من خلال الدروس السابقة » تستطیع ان تلاحظ أن System‏ هي ال namespace‏ !1 ثيسية 


التی تجد تشتق منها آغلب ال name spaces‏ الأخرى. 


هناك name space‏ آخر asi Microsoft pub‏ تحتها العدید من الفئات مثل 
Microsoft.ManagementConsole‏ وجميع Glial!‏ المشتقة من Micosoft ab‏ هي 


خاصة فقط بالتعامل مع خدمات مایکروسوفت ولذا فهي لا تعمل تحت ال MONO‏ مثلا. 


لاحقا. سیکون من الواضح ان تفسر ال name space‏ التالي : 
System. Windows.Forms‏ انها تحتوي على المهام الرئيسية التي تحتاجها لبناء .Forms‏ 


clgauill محالات‎ aiul 1 . 12 


یمکنک استیراد مجال الاسماء اعلی ملف الکود الخاص بك بالشکل التالي 


CH 


using System.Data, 5 161 


VB.NET 
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CH 


oegilconnection sqli = mew oclConnec lion O; 


VB.NET 


الباب الرابع 








Dim 5011 As SglConnection = New SqlConnection() 
فى المقایل »2 لو لم تقم بتعريفه فى مجال الاسماء ( قفی هذه الحالة انت مضطر لد خو له بالتر تیب‎ 


System.Data.SqlClient.SqlConnection 1 
System.Data.SqlClient.SqlConnection(); 


VB.NET 


في كل مرة تستخدمه فیها: 


Dim 5011 As System.Data.SqlClient.SqlConnection = New 


System.Data.SqlClient.SqlConnectionn() 


Ff HelloWorld.exe - IL DASM 
File wiew Help 





B- HellowWorld. exe 
mP MANIFEST 
2... Helloworld 
e" Hellewarld.Iv 
BE nelloworld.Formt 
Pob dass public auto ansi beforefieldinit 
^ b^ extends (System. Windows. Forms System, Windows, Forms.Form 
: & _ ENCList : private static class [mscorlib]5ystem. Collections, ArrayList 
ش‎ vee «> components : private class [Systern]System, ComponentModel, [Container 
5 vector : voidi) 
| Bl ctor : void) 
i Bl Dispose : void(baal) 
: 8 Formi Load : void(abject,class [mscorlib]5ystem, EventArgs) 
j 9 ÉrnitializeCompanent : voidt) 
j B)  ENMCHiddenRefresh : void() 
۱ pes . EMCIEerate ۰ woidi) 


: — 2 ENCUpdateHandlers : void) 
&- E HelloWorld.MySettings 
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ضمن البرامج الملحقة مع Visual‏ 


Studio 58‏ تجد في الغالب برنامج 
۲ یمکنک هذا البرنامج من الاطلا e‏ 
على الاسمبلي الخاص CL‏ برنامج قمت 
بعمله باستخدام Net‏ ۰ ایضاً یمکنک من 
رؤية ال CIL‏ الخاص بهذا البرنامج ... هذه 


صورءة من البرنامح : 
الصورة 4. 4. برنامج ال ildasm‏ 


و یمکنک تحمیل نسخه من البرنامح 
و معر Aa‏ المزید عنه من هنا : 
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http://msdn.microsoft.com/en-us/library/aa730858.aspx 


۲ Open Source .net تبحث عن‎ Ja . 14 


http://www.mono-project.com 
العمل على توزیعات لینو حکس‎ CIL التي تتيح لل‎ Projects هو اشهر ال‎ Mono project او‎ 
المختلفة.‎ 


هناك مشرو € آخر باسم Portable.NET‏ يمكن CIL‏ من العمل على منصات مخافه. 
تجد رابطاً للمشروع الثاني هنا : 


http://www.dotgnu.org 


فى آجزاء قادمة من الکتاب سنتعرف بصورة تفصيلية أكثر عن .MONO‏ 
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Aaalgll‏ الأساسية 
العیجوال سنودیو 








الباب الخایس الواجهنم الأنساسية الفیجوال ستوديو 


1 . كيف أكتب الکود+ 


الإجابة التقليدية على السوال السابق هي من خلال 2008 Visual Studio‏ إلا أن هذه الاجابة ليست 
مكتملة مات > فالاجابة الصحيحة هي انه ومن خلال و جود فقط. 3.5 net framewrok‏ 
Development Kit‏ على أي جهاز فانک ستکون قادر | على تطویر net 2008. Slanted‏ ۰ سنتعرف 
في هذا الدرس على Alle‏ على بعض هذه الطرق قبل ان ننتقل للحدیث حول الطريقة الاساسية 


التي سنتعامل معها من خلال 2008 Visual Studio‏ 


مبدئیا یمکنک تحمیلها من هذا الر ابط 


http://msdn2.microsoft.com/en-us/library/zcxleble.aspx 





Visual Studio 2008 Command Prompt استخدام‎ 1 


لو افترضنا اننا سنقوم ببرمجة CH‏ » يمكنك من خلاله كتابة الأمر ?- CSC‏ الإطلاع 
على الأوامر المطلوبة» ستکون هذه الأوامر كافية لتستطیع البدء بترجمة كود (CH‏ لکن ستتضطر 
deal‏ كل شيء يدوياء ستحتاج لتحديد المخارج والاسمبلي والملفات .... الخ ۰ في المقابل 
ستستفيد من ميزة كونت تقوم بعمل كل شيء يدويا وهو ما يتيح لک فرصة ذهبية للتحكم في 


كل ما يتعلق بالبر نامج من الاألف إلى الياء. 
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Em Visual Studio 2008 Command Prompt 
etting environment for using Microsoft Visual Studio 2008 x86 tools. 


۰۶ SProgram Files\Microsoft Visual Studio 9.6\UCocse —t 
Microsoft <R? Wisual CH 2008 Compiler version 3.5.21822. 
for Microsoft ۳۸ „NEI Framework version 3.5 

Copyright <C? Microsoft Corporation. All Fights reserved. 


Visual CH 2HHR Compiler Options 


- OUTPUT FILES - ۱ 
۲۸۱۱۱۱۰۳۵ 1le? specify output file name «default: base name of 
file wath main class or First File? 
ftarget exe Build a console executable (default) (Short form: 
#t SEXE 
target 2 ۷ ۵ Build a Windows executable ‘Short form: 
/Á/t-winexe. 
target : library Build a library Short form: /t: Library? 
target 2 نقأن‎ Le Build a module that can be added to another 
assembly ¿Short form: #tE:modu le? 
“de laysign(+i-] Delay-sign the assembly using only the public 
portion of the strong name key 
doc : 44 182 AHL Documentation file to generate 
“ke yf ile 2*۳ ile> Specify a strong name key file 
“ke ycontainer:<string?, specify a strong mame key container 
platform:<string> Limit which platforms this code can run on: x86, 
Itanium. x64, or anycpu. Ihe default is anycpu. 


INPUT FILES 





Visual Studio Tools > -2008‏ فى قائمة البرامج) 
بأبسط صورة » یمکنک عمل Compile‏ لاي ملف CS‏ ترغب به بالشکل التالی : 


Command Prompt 


cep Fraile CS 


Command Prompt 


Gs e mec iuo m SEIN eS 


Command Prompt 


csc /out:My.exe File.cs 





اخيرا Compile Heat‏ لعدة ملفات مو جودة فى مجلد واحد : 


E. 


الباب الخامس الواجهنم الأساسية الفیجوال سنودیو 


Command Prompt | ڪو د‎ 





csc /define:DEBUG /optimize /out:File2.exe *.cs 


یمکنک معرفة المزيد ايتداء من هذا الر daa!‏ من مایکر و سو فت : 


http://msdn2.microsoft.com/en-us/library/ 78f4aasd(VS.80).aspx 


1 استخدام ال TextPad‏ 


برنامج قابل لاعادة التهيئة» بمعنی انه قابل للعمل على اي شىء وقايل للتخصیص ليعمل كأي 
شیء. نسخة مطورة من ال Notepad‏ قابله للتطویر و التعدیل » یمکنک استخدامها کاداة تحریر 
لاي لغة برمجةاو صفحات ویب او HIML‏ او حتی اسمبلی ... یمکنک استخدامها لتریب اوراقک 


CY...‏ شيء Le‏ دمت تستطیع تعدیل الخصائص المطلو بة. 
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xtpad.com\products\textpad features. html. عا‎ m 


File Edit Search View Tools Macros Configure Window d m ox 


Oe 8 3 ] لها‎ ١ 4 BESE f 9: v. = AR 6 ۲ i 
Explorer AJ a r ao 


Er اقلا‎ Computer “TIDOCTYPE HTML PUBLIC "—/W3C//DTD ETHEL 4. 
2 5 di Local Disk (C:) <HTML> 


























: -eid DVD RW Drive (D) | HEADS 
EP Metwork <META http-equiv-"Content-Type" conten 
7.8۳ Entire Network <TITLE>TextPad Features<“TITLE> 
F E: T dias = <META name=DESCRIPTION content="TextPa 
A Microsoft Winde <META name-EEYWORDS content-"textpad. 
a. > ا امین‎ <META http-equiv="Content—Style—-Type" Si 
4 | 9 ا‎ | 5 +4 SCRIPT type="text-javascript" languag! == 


(EA ole. .. | 5 Docu... | Clip. - LI * perm 13 ۱ 


Search Results q | 


support*faq^*retonolz. htmli8): <META name-KEYWORDS content="regular ezx[. 
support*tips*-borlandtip.htmli8): <META name=KEYWORDS content-"TextPac _ 
support*tips^index.html(8): <META name-KEYWORDS content="TextPad, zu 

Found 47 occurrenceí(zs) in 47 fileísz) Em 


| 
| 4 | 11 


Eq: search Results | E Tool Output 





الصورة 5. 2. برنامج ال .TextPad‏ 


واحدة من ضمن خصائص ال TextPad‏ انك تستطيع اضافة ملف لتعريف لغة CH‏ او VB.net‏ 
علیه. يعد اضافة الملف ستجده يقوم بتلوين الأكواد كما (Visual Studio;‏ یمکنک اضافة 
امر Compile‏ حيث تجد نسخة من ال RE‏ المستخدمه للغة ال CH‏ ۰ الخ ٠‏ لمعرفة المزيد حول 


هذا المو 9-2 € یمکنک تتبع الر ابط النالي والانطلاق منه 


رابط هي 
http://www.eggheadcafe.com/community/aspnet/2/10014016/textpad-and-c.aspx‏ 
كما تستطیع ان تجد ملفات کل لغات البر مجة او الو صف لتر کیبها على ال Textpad‏ هنا 


$9 رابط‎ 
http://www.textpad.com/add-ons/cliplibs.html 
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بامکانک التعدیل فى لغة البرمجة نضها إن اردت عن طریق «Reguler Expressions! paai‏ لو 


قمت بوضع قوانین للغة البرمجة خاصتک فباستطاعتک تنفيذها على ال Textpad‏ ایضا. 


1 3. استخدام ال Notepad++‏ 


تطبیق ممائل .۰ إلا انه مجاني بالکامل يتيح لک بعض الخصائص التي ريما لا تتوفر 


لل Jis Textpad‏ خاصية ال auto complete‏ » اضف لذلك انه مفتوح المصدر بمعنى انه متاح 


بالسورس کود. 










































































Notepad++ C نلف سوا‎ Fites\Notepad++\config.xnl BEND = x 
File Edit 73 View Format Toup Settings Macro Run | Plugins | Window F X 
عه دم‎ PAY contig | | oe ۱ | 
= —— Function List ۴ — 
1 c?xml version="1. g^ encodinge"Windows- 125 HEX-Editar 5 5 
: E Fm | TextFX Characters ۷ 
۱ ۱ TextFX Quick L 
4 cle 3 status : "large", "small" or "hide" | بت یت‎ 1 
5 “<GUIConfig namee€"ToolBar"»standar, : 
۳ d— 2 cafus : "du" or "hide" o TextFX Convert p 
1 «GUIConfig name="StatusBar">show<) ساسحا‎ grazi 3 
a £i For all atributs. 2 status : "yes" or "no"— TextFK HTML Tidy + 
5 «GUIConfig name-"TabBar" dragAn ian) [2:2 ۵ Sort lines case sensitive [at column) ع‎ 
"ves" /» TextFX Viz ۲  Sortlines case insensitive (at column] 
10 d— 2 positions : "horizontal" ar "vertical" 5 TextFX Viz Settings | w sSortascending 
11 | «GUIConfig name="Scintillay lewssp TextFX Settings ۴ | *5ort outputs only UNIQUE [at column) lines 
— For the attribut of position. 2 status : docked or undocked - c status SOW —— 
13 | «GUIConfig name-"UserDefineDlg" a TOTUM 
14 «GUIConfig name="TabSetting" size="4" replaceBvSpad l 
15 وم‎ position | Insert Line Numbers 
16 | «GUIConfig name-"AppPosition" x="195" y="104" widrg 9۳ ۱۶ Numbers or First Word b" 7> 
17 È d— For the primary scintilla view. | Clean eMail »Quoting 
DES | 2 status for Attribut lineNumberMargin, bockMorkMargin. indentGuideLine and cur, UUdecode 
19 5 4 stutus for Attribut folderMarkStyle : "simple". "arrow", "circle" and "box" =+ | 82564 Decode 
70 <GUIConfig name="ScintillaPrimaryView" LineNumberMs Word Count 
folderMarksStyle="box" indentGuideLine=" show" currentLineHil Add up numbers I" 
21 NT T € im scintilla view. | Empty Undo Buffer (be sure to save] 





22 2 status for Atribut lineMumberMargin, bookMarkMargin, indertGuidel ine and €— how: "show" or "hide" 
4 status for Atribut folderMark5tyle : "simple", "arrow", "circle" and "box" 
4 | <GUICenfig name="ScintillasSecondaryView" lineNumberMargine"show" bookMarkMargine€"show" 
| folderMarkStyle-""borx" indent uideLine="show" currentLineHilitingShow="show" Wrap="yes" edge="no" 


edgeHbColumn-"80" /> 
25 <GUIConfig name="Auto-detection">yes< /GUIConfig> 


Ped fag 


r‏ هد 


«GUIConfig name="CheckHistoryFiles">yes</GUIConfig> 
LLL NM anas al EE E یس تس‎ ma ICID ES E "c 
axtenaible Markup Language file nb char : 3277 ? kari Galil Sal: 6 Dasiwindcws ANSI INS 





الصورة 9. 2. برنامج ال .Notepad--*‏ 
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الواجهنم الأساسية الفیجوال سنودیو 


http://notepad-plus.sourceforge.net/ uk/about.php 


الباب الخاوس 


یمکنک معر 43 المزيد هنا: 


رابط هج 


البر Gold‏ نفسه تجده هنا مع مراحل تطویره حيث انه Open Source‏ على هذا الر ابط 


http://sourceforge.net/projects/notepad-plus/ 


fq Hello SharpDevelop - SharpDevelop 


File Edit View Project Build 


رابط $9 


SharpDevelop .4 .1 


موجه لخد مه ال CH‏ » يتميز بو جود واجهة للتصميم ایضا : 


Search Format 


t) u$ EB db ذا « | اق‎ Bx | 9 ' 


| Tools A x | 
ASCI Table 


























C£ Documentation Tags 
Licenses 

XSL-T 

General 

Clipboard Ring 
Windows Forms 

k Pointer 

ab] Button 
CheckBox 

E$ ComboBox 

Å Label 

( RadioButton 

TextBox‏ اناد 

E% CheckedListBox 
EF DateTimePicker 
E- ESS 


Data 

Components 

Custom Components 
E] Projects Tools 
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View Code 


Bring to Front 
Send to Back 


Align ta Grid 


Show tab order 
Lock Controls 


Cut 


Copy 


Paste 
Delete 


Properties 





Tools Window 


UseWaitCurso False 
El Behavior 
AllowDrop False 
AutoEllipsis False 
ContextMenu! (none) 
DialogResult None 
Enabled True 
TabIndex 0 
TabStop True 
UseCompatibl False 
Visible True 
Data 
(DataBindings 
Tag 
حا‎ Design 
(Name) AffirmButton 


T 


(Name) 
Indicates the name used in code to 
identify the object. 


Properties PH Classes | 


In 2 col? ch? INS .: 


الصورة 5. 3. برنامج ال .SharpDevelop‏ 


الباب الخایس Aaalgll‏ الزأساسية للفیجوال ستودیو 


و هو الاقرب للفيجوال ستوديو فى المظهر و الادوات ۰ يمكلت البدء بالتعرف عليه عبر الرابط 


التالی : 


مه 


$9 رابط‎ 
http://www.icsharpcode.net/OpenSource/SD/ 


Visual Studio 2008 مع ال‎ 7ulaul .2 


ال IDE‏ المعتمد من مایکرو سوفت لكتاية ال CH‏ او ال VB.net‏ هو ال Studio Visual‏ 
باصدار تیه. حيث نجد الاصدار Proffessional‏ وهو غير مجاني . اما EXpress‏ والذي یکون موجه 
للغة معينة فهو مجاني Visual C# 2008 Express Jis‏ . 

بعد تشغیل البرنامج لاول مرة 2 9 حسب اللغة المستخدمة ستجد آول ما تجد خیارات انشاء 


مشرو ع أو Web Site‏ جدید اضافة نلتعدیل على المو جودین › من قائمة NEW‏ اختر Project‏ مثلا 


'E — 
| Praject types Templates: | NET Framework 35 — | E 3 
| Visual C= || Visual Studie installed templates | 
Windows Windows Forms Application E] Class Library 
Wieb 
Smart Device 
Office 
Database 
Reporting 
Test My Templates 


"IWPF Application "e| WPF Browser Application 

M Console Application E Empty Project 

YA Windows Service كال‎ WPF Custom Control Library 
a) WPF User Control Library rz Windows Forms Control Library 


WEF Search Online Templates... 
Workflow 

Database Projects 

Other Languages 

Distributed Systems 

Other Project Types 

Test Projects 


A project for creating a command-line application (, NET Framework 3.5) 
Mame: ConsoleApplicationd 
Location: CAUsers Ahmed Documents Visual Studio 2008 Projects 


Solution Mame ConsaleApplicationd [F] Create directory for solution 


| سیب 
ae gera‏ 
سس LII‏ 




















الصورة 5. 4. انشاء مشرو ¢ جدید في ال 2008 .Visual Studio‏ 
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ابسط الأنواع هي Console Application‏ وهي شاشة لكتابة الکود تحتوي مبدئیا على Class‏ و احد 
باسم Main‏ وال name space‏ هو اسم المشرو ع الذي اخترته ... فقط. باقي الانواع سنتطرق لها 
في مراحل مختلفة من GUSH‏ ۰ سنستخدم Console‏ لانه ابسط الاأنواع ونستطیع من خلاله فهم 


.het 2008 aio حامل‎ 


على یمین الشاشة تجد ال Solution Explorer‏ » حيث یمکنک التنقل بين مکونات المشرو e‏ 
المخلفه 2 تحت References C343‏ تجد المکونات المضافه إلى برنامجت . تستطیع اضافه 


مکونات جديدة من JUS‏ الضغط على References‏ بزر الفأرة الأيمن و اضخط .Add‏ 
Solution Explorer = ConsaleApplicationd + 3 X‏ 


E لو‎ rm الخ‎ ay 
۳۳ Solution 'ConseleApplicationd (1 project) 
F ConsoleApplicationd 
34 Properties 
3j References 
et] Program.cs 


اسفل هذا التبويب یمکنک النبدیل بين اسلوب العرض ۰ تسنطیع اخنیار عرض Class‏ بحيث ینم 


عرض جميع ال Classes‏ المو جودة في مشرو Sac‏ والطرق والخصائص فیها 


| E = 
e Search» = LJ 


SET] ConsoleApplicationd 
۶۱ | و‎ Project References 
21-11 ConseleApplicationd 


ae Program 
(yy Base Type 


تحت $3 Properties c‏ تحد خصائص المشرو € > لو قمت بالضخط عليه مرتین سنحد خصانص 
یتیح لک ال net‏ ايضا cus Class Designer‏ یمکن رسم الفثات Classes‏ و تحدید العلاقات Login:‏ 


بصورة مرتیه ومن ثم يتم تطبيقها مباشرة مع الروابط بینهما على المشرو ع مباشر 5. 


2 برنامحك الأول 


سنجرب اول برنامج بسيط لنا « في ال function‏ المسماه Main‏ ضع الکود التالي: 
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CH 


Console.Write("Hello World"); 
Console.ReadKey(); 


VB.NET 


Console.Write("Hello World") 
Console.ReadKey() 


فقط ... تکون هكذا قد أنشأت برنامجک الأول فى 2008 Visual Studio‏ . جرب الضغط على زر 





F5‏ و جرب ناتج البرنامج. 


84 





Atai Agu! مکونات‎ 





الجزی 01 


الباب السادس مکونات اللغة الرئيسية 


قبل الابحار في عالم المکونات الاساسية للغات الدوت نت ۰ سنتعرف على سوية على بعض خصائص 
ال Console‏ والتي سنستخدمها لاحقا في دروسنا. 


Console خصانص‎ 1 


حتى هد ه المر حله من 3441 9 س ( [aL‏ اللآن الكتابة TT‏ الشاشه 9 عمل دوال و استد Le Le‏ 
واستر جاع قيم وطباعتها » عند هده المر حله AS. Leu‏ راحه قصيرة للتعر ف على العناصر الاساسية 


للبيثة Console‏ التى تعمل عليها حاكنا: 


اهم الدوال التي تحتویها Console aiat‏ هي دوال الادخال والاخراج 2 وهي: 


// لکتابة‎ gai 

Console.WriteLine(string) 

|J لكتاية‎ qas aes die (LEST) jhe) حديق.‎ den el git! 

string x = Console.ReadLine(); 

// bel من الانتهاء ویتم المستخدم من مدخلات لقر‎ 3١ iI ao bres انتر‎ 
int x = Console.ReadKey(); 

2 ds] حرف قر‎ do! انهاء فيكم فقط و‎ «La ae 8 sl القر‎ & bred ji! 
ConsoleKeyInfo r = Console.ReadKey(); 
Jf beh gs خرف‎ del l5 بعد از 2۶۱ من والاتتهاء‎ ales! Eas ا دخال.‎ qe] ية‎ dia زو‎ 


qax ole‏ في اللا تخزين Did pi‏ مللا اسهم 


VB.NET 

نس لکتابتة ' 

Console.WriteLine(String) 

الانتهاء saw‏ جدید نسطر الاتتقال bas‏ مع نص ) A3LXS‏ ' 

Dim x As String = Console.ReadLine () 

i be) من الانتهاء ويتم المستخدم من مدخلات لقر‎ be! y à I eo bred انتر‎ 
Dim x As Integer = Console.ReadKey () 

انتر bes‏ مع القراءة عملية انهاء pios‏ فقط و sol‏ حرف قراءة ' 

Dim r As ConsoleKeyInfo = Console.ReadKey )( 

45 ملل اة اي a + quies LES!‏ يعد القن Bel‏ من $4 eLoaxX54]‏ فقط و احذد حرف he) he‏ * 
خاص متغیر في الناتج تخزین piy‏ لذا Sie‏ الأسهم 
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دوالك qi‏ خاصة بعمليات الألوان  ForeGroundColor (fas‏ للون poe‏ و 


 BackgrounaColor‏ للون الخلفية» تستطیع Qe‏ اللون عن طریق الفثة 
ConsoleColor‏ بالشکل التالي 


CH | کو د‎ 
Console.ForegroundColor = ConsoleColor.Yellow; 





لو كنت مبرمج VB.net‏ فلن تحتاج سوی AM Y‏ ال ; من آخر الجملة . 


هناك خصائص آخری WindowWidth (Ee‏ و Title‏ و خلافها لتحدید مظهر النافدة. 
نعود لأحد مواضیع الطباعة » لنفتر ض اننا نرید القیام بطباعة النص التالي: 

الاسم: المتغیر name‏ 

العكمر: المتغیر Age‏ 

یمکننا القیام بدلكت عن طریق حنابه الکود النالي: 


CH 


Console.Write("First Name: " + name + ۲ — Age: " + age); 


CH 


Console.Write("First Name: {0} - Age: {1}", name, age); 


بواسطة الطريقة الثانية 2 یمکنک عمل Format‏ للنص باستخدام رموز d‏ للارقام و © لل 





۵ بالشکل التالی مثلا: 


CH 


Console.WriteLine("E format: (0:E)", 99999); 
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2. تعریف المتغیرات 


كما ذکرنا فى الدروس السايقة یمکننا تعریف المتغیرات بالطريقة التالية 


CH 


IH x 
string name; 


VB.NET 
Dim name As String 
في كثير من تعریف المتغیرات ۰ فما هي‎ NEW و خلافه ۰ و لکنک بالتأكيد تلاحظ و جود الکلمة‎ 
3 مهمنها‎ 
وهو ما سیعیدها إلى صورتها الافتراضية‎ NEW بعض الانواع البسيطة یمکن تعریفها باستخدام‎ 
والار قام‎ false إلى‎ Dool المو جودة في المنشی الخاص بها ۰ حيث يتم تحویل الانواع المنطقية‎ 
gb إلى صفر و حدلک‎ 
آنواع المتغیرات.‎ 
لکن هناك انواع اخری من‎ 
البیانات لا یمکنک استخدامها‎ 








d 
J 


الا باستخدام 18۷ de‏ ال 


ValueType 





arraylists s Objects 
DateTime 


| 


وخلافه مما سنتعر ف عليه فى that derives‏ 


from 
is a . لك‎ 


structure Int32 = 
or enum : 
- TimeSpan : 1 "T" . 
MulticastDelegate not a class. [timespan | CH هد ا هو تقسيم الانو اع کی‎ 


الصورة 6 1. الأنواع في ال 
CH‏ (الصورة من ككتاب 


ProCSharp 2008 and .net 


(2008 platform 


t 








H 





90 
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جمیع الانواع المشتقة من Object‏ تملك بالضرورة طرقه الاساسية Equals Jis‏ و 
Get ۳6‏ و خلافه. 


Lol‏ الطرق الاساسیهةه تلا نواع الرقمية int is‏ و long‏ فتشمل الخصائص الاساسية 
MaxValue dis‏ و ... MinValue‏ قیما يحتوي ال Char‏ على خصائص fie‏ 911011 1 و 


IsLetter‏ لتحديد طبيعة المد خلات. 


clgil . .2‏ المتغیرات 


فى اي جزء من البرنامح داخل ال Class‏ یمکننا تعريف المنغیرات حسب النو ع 7 
LU string‏ ویتم تحديد مدی الو J geo‏ عبر المکان المو جود فيه التعريف. 


gil‏ ضیح هذه النقطه سنفتر ض متغير تم تعريفة داخل دالة ۰ هذا المتغیر لن يستطيع آحد gt)‏ صول 
إليه الا خلال الدالة 2 ونفس الأمر لو تم تعريفه داخل شرط أو داخل حلقة تكرارية Lol c‏ لو قمنا 
بتعریف متغیر خارج الدالة ) داخل الفئة Class‏ مباشرة ) فیمکن لاي دالة الو صول إليه مباشرة › 
في هذه الحالة یسمی Member‏ . 

Laud‏ نوعين من المتغیرات ‏ النوع الأول وهو البسیط مثل int‏ و LONG‏ و خلافه حيث يتم يشير 
اسم المتغیر لمکانه من الذاكرة Lei‏ المر کب مثل Struct» Array‏ فيشير المتغیر إلى مکان 
تستطیع منه الاشارة إلى المتغیر في الذاكرة ۰ سنتعرف على هذا gall‏ ضوع بالتفصیل في دروس 


قادمه . 


Constants قılgûll‎ .2 .2 


ال Constant‏ هو نوع من البیانات M‏ یمکن تغییر قيمته ابدا ۰ لذا یعرف باسم Constant‏ او الثابت, 


یمکن کتابته بالشکل التالی: 


CH | كود‎ 


public const int myNumber = 100; 
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VB.NET ۱ S es 





Public Const myNumber As Integer - 100 


يتم استخدام هذه الثوابت كقيم ثابتة لبعض المعادلات مثل PIH3.14‏ » مثل رقم معین تستخدمه 
الشركة في الحسابات ... الخ . فى هذه الحالة یفضل تعریفه كثابت بدلا من تعریفه کمتغیر 


لضمان استحالة تغييره في اي و قت. 


يتم تعریف الثابت مرة واحدة واعطاءه القيمة لحظة تعريفه فقط... 





القیم acljall‏ فقط Read Only Field‏ 
يتم تعریفه بالشکل التالي: 


CH | كود‎ 


public readonly double PI = 3.14; 


VB.NET ۱ oe 


Public ReadOnly PI As Double = 3.14 


يعمل مثل ال Constant‏ تماما c‏ ما عدا انه یختلف في امکانیه اعطاءه قيمة بعد انشاءه مرة واحدة 





دون ان شرط اعطاءه القيمة في نفس لحظة التعريف بالشكل التالي مثلا 


class MyMathClass 


{ 
public readonly double PI; 
public MyMathClass() 


deld; 


VB.NET 


Class MyMathClass 
Public ReadOnly PI As Double 
Public Sub New )( 
PI = 3.14 
End Sub 
End Class 
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String Apnill المتغيرات‎ .3 


سنتحدث في درسنا هذا حول كل ما یتعلق بالنو ¢ 51111۳0 


3. 1. الخصانص و الدوال الأساسية لل String‏ 


الدالة of‏ الخاصية الاستخدام 


للمقارنه بين نصين 


لمعرفة فيما اذا كان النص یبدا او ينتهي بحرف او نص معين 


استبدال جزء من النص 


لتحويل حالة الاحرف بين capital‏ و small‏ 





الجدول 6. 1. خصائص و دوال الفئة String‏ 
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CH 


string[] newarray = g.Split("-"); 


VB.NET 


Dim newarray As String() = g.Split("-") 





الطر 4a)‏ الابسط لدمج النصوص هي باستخدام + »او باستخدام الدالة Concate‏ بالشکل التالي: 





ڪو د | CH‏ 


string s5 = sString.Concat(851;, B2)7 


VB.NET 


Dim ss AS SEring = [Stringl.Coneartsl, $2) 





يمكن استخدام المعامل == لمقارنة النصوص في CH‏ أو = في VB.net‏ > إلا انه من المفضل 


استخدام الدالة Equals‏ بالشكل التالي: 





CH | كود‎ 
Console.WriteLine(sl.Equals(s2)); 


VB.NET "s 





Console.WriteLine(sl.Equals(s2)) 
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Escape Characters 5.3‏ — سي شارب فقط 


في کل لغات عائلة السي » تجد حرف / محجوزا لبعض الحروف الخاصة مثل /N‏ لسطر جدید و 
/t‏ لعمل Tab‏ وغیره » بالشکل التالی Mis‏ 





ڪو د | CH‏ 
Console.Write ("My Name:/nAhmed Gamal");‏ 
لذا إذا اردت ان تكتب / فلا بد لك ان تکتب d/‏ هناك حل آخر وهو استخدام ما يعرف 


باسم Verbatim Strings‏ حيث یمکنک فى هذه الحالة كتابة نص gale‏ يدون القلق من ال Escape‏ 


5 بالشکل التالی “Mis‏ 


CH 





Console.WriteLine (@"C:\MyApp\bin\Debug") ; 


String ulg التحويل من‎ 


تحتوي معظم الانواع الاساسية على الدالة Parse‏ والتي تحول اللص إلى مناظره › 
بالشکل التالي مثلا: 


CH 


int x = 1nb.Perse("l")s 
bool v = bool.Parse ("True"); 


VB.NET 


Dim x As Integer = Integer.Parse("1") 
Dim v As Boolean = Boolean.Parse("True") 


كما تحتوي ایضاً على الدالة ToString‏ لتحویلها إلى نص بالشکل التالي مثلا 
ڪو د | CH‏ 





VB.NET ۱ pem 


Lam <= AS SULTING = HnlOStringc 
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StringBuilder T3 


عندما تقوم بدمج النصوص c‏ يلجأ الکثیرون منا لاستخدام المعامل + في CH‏ أو المعامل & 


في VB.net‏ بالشکل التالي - مثال اضافة امتداد البرید الالکتروني: 


CH 


y. Ce 
Labell.Text = Textl.Text + "@hotmail.com"; 


VB.NET 


"VB.net: 
Labell;Text = Textl<.Text + “hotmail ها‎ 





إلا Visual Studio of‏ قدمت لتا طريقة آخری لدمج النصوص باستخدام الفثة 
Jui. 8 «StringBuilder‏ الاسماء System.Text.StringBuilder‏ یمکن 
استخدامها لدمج النصوص بالشکل التالي: 


//C#: 
System. Text.StringBuilder mail = New System.Text.StringBuilder(Textl.Text); 
mail.Append("@hotmail.com"); 


'VB.net: 
Dim mail As New System.Text.StringBuilder(Textl.Text) 
mail.Append("@hotmail.com") 


الفارق بين الاثنين یکمن في ان (Jas StringBuilder‏ كما هو lle‏ لحظة انشاءه. اما 





استخدام المعاملات + أو & فهو یقوم بعمل ODJECE‏ جدید من ال String‏ مع كل عملية 
دمح . 

والآن سنفترض متال LOOP‏ تقوم qe‏ عدد من النصوص» وسنصور المقارنة مباشرة من 
كتاب. Gus inet Gotachas‏ قام بعمل اختبار لعدد عملیات دمج ابتداء من 10 عملیات دمج وحتی 
0 عملية دمج « وقام بمقارنة الأداء بين استخدام StringBuilder‏ او استخدام 


معاملات الدمج التقلیدیه 0( مع ذكر زمن التنفين بالثانية لكل منهم. 
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Table 1-3. Performance, in seconds, of concatenation versus StringBuilder 


# of appends 4 s tringqBuilder 
LQ OOH 0.00 
LOO 0.000 0.00 
1,000 0.000 0.00 
2,500 0.000 0.00 
5,000 شاک اما لا‎ g.ug 
7,500 0.050 0.00 
10,000 0.090 0,00 
£5,000 0.250 0.00 
25,000 1.052 u. uud 
15,000 1.3473 0,00 
50. 00D 5.58 0,00) 
55,000 10.625 00 
75,000 14.831 0.01 
9۳5,۵0 19.41H 0,01 
LOO. 000 27.159 g.u1 
150,000 65.1374 0.01 
250.000 209.4121 0.02 
350,000 341.5615 0.02 
$060,000 910.129 Q.04 
650.000 1521.708 0.06 
,!50.00D 1999. ا‎ 0,06 
ES. 000 2576.57 ü.uo 
1,000,000 3562,933 0.07 





الصورة ۰6 2. مقارنة نتائج سرعة تنفین النتائج بين المعامل + و ال StringBuilder‏ 


Y‏ تنسی ان 3562.933 ثانية تعنی 59.4 دقيقة تقريبا... 
والآن ... هل ما زلت تستخدم & او + لدمج النصو ص $88 


توفر Las StringBuilder aati‏ عملیات استبدال Replace‏ وادراج iasg Insert‏ 
Remove‏ و عملیات نصوص آخری كثيرة ۰ یمکنک الاطلا e‏ على آو جه كثيرة للمقارنة مدعو مه 


بالر سوم البيانية من خلال هذا الرابط من :Code Project‏ 


رابط هي 
http://www.codeproject. com/KB/cs/StringBuilder vs String.aspx‏ 
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الاعامل مع alll‏ و agli‏ 


تجد جمیع ما یتعلق بالتاریخ والوقت في المکتبة DateTime‏ فمثلاً لاضافة تاريخ معین: 





CH 


DateTime dt = new DateTime(2004, 10, 17); 





لطباعة التاریخ الحالي: 
Ci‏ 


یمکن التعامل مع الوقت آیضا باستخدام TimeSpan‏ 





ڪو د | CH‏ 





TimeSpan ts = new TimeSpan(4, 30, 0); 


الاضافة والطرح باستخدام الداول Add‏ و Substract‏ بالشکل التالي: 





CH | ڪو د‎ 
Console.WriteLine(ts.Subtract (new TimeSpan(0, 15, 0))); 
آو‎ 


CH 1 
dt = dt (2); 


لو كنت مبرمج VB.net‏ فلن تحتاج سوی AM Y‏ ال ; من آخر الجملة . 





التحويل بين المتفیرات المختلفة 


بداية » تنقسم التحويلات بين المتغيرات إلى نوعين رئيسين: 





Widening Conversions e 


Narrowing Conversions e 
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Widening Conversions .1 .5 


یقصد بهذا النوع من التحویلات تلك التحویلات التي لا یمکن فیها خسارة اي نوع من البیانات 


وتسمی باسم Upward Cast‏ ۰ مثال ذلك التحویل من Short‏ إلى Integer‏ في المثال التالي : 


VB.NET 


Dim x As Short = 5 
power (x) 





power الدالة‎ uà» 


int power(int number) 


{ 


return number ^ 2; 


} 


VB.NET 


Private Function power (ByVal number As Integer) As Integer 
Return number Xor 2 
End Fünction 





لو لاحظت ستجد ان الدالة تستقبل بیانات من نوع INE‏ فیما ارسلنا لها بیانات من نوع 5۳01۳1 
في هذه الحالة لن تکون هناك مشكلة OM‏ مدى ال j£! Integer‏ من Cre‏ ال Short‏ 


وبالتالي فان اي مدی لل eas Short‏ ضمن ال Integer‏ بکل 49 


Narrowing Conversions .2 .5 


الحالة العكسية ۰ التحویل من الاضبر إلى الأصغر ۰ مثلاً لو كان المتغیران من نوع Integer‏ 
والنانج من نوع exco (Short‏ الامر بصورة A»‏ لو كان مجمو € الرقمين Integer‏ 
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اصغر من الحد الأقصى Short M‏ ولكن لو Lie ial‏ ان مجموعهم تجاوز حدود مدى ال 

Short‏ فإن ذلك سينتج مشكلة. 

لهذا السبب ۰ یمنعک المترجم مباشرة من كتابة fio‏ هذا الكود و بعطیک رساله الخطاً التالية: 
Cannot implicitly convert type 'int' to ‘short’.‏ 

لکن لو رغبنا في التحویل Led)‏ عن هذه النقطة حتی لو نتج عن ذلك ضياع بعض البیانات » في 


هذه الحالة نلجاً لما يسمى ب Cast‏ 


5. 3. عمليات ال Cast‏ 


لا تنطبق عمليات ال Cast‏ على التحويل من اكبر لأصغر فقط . بل يمكن استخدامها في كل 
عمليات التحويل » ابسط استخدام لها هو لتحويل Integer‏ إلى Short‏ بالشكل التالي: 


CH 


int var = 10; 
short var2 = (short)var; 


VB.NET 


Dim var As Integer - 10 
Dim var2 As Short = CShort(var) 





في المتال السابق ۰ لو قمنا بطباعة Az‏ 212 سنجد انها lO‏ . لكن fale‏ لو افتر ضنا المنال 
التالى: 


int var = 100000; 
short var2 = (short)var; 
Console.WriteLine(var2); 
Console.ReadKey(); 


Dim var As Integer - 100000 
Dim vara As Short = CShort (var) 
Console.WriteLine(var2) 
Console.ReadKey )( 
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النتيجه لن يمكن توقعها بالسبه للعمیل. ولكن بصورة مقربه لک كمبرمج ستكون النتيجة هي T‏ 
02 حيث سيقوم المترجم بعكس الإشارات ابتداء من 32/68 ومن ثم انقاص رقم مع كل 
زيادة عن الرقم السابق» او باختصار فهو يقوم بطرح الرقم الناتج من الحد الاقصى او المدى 


الاقصی للنوع وهو /32/0. 


باستخدام هذا النوع من التحويلات 2 فإنه من المفضل دائما استخدام Try Catsh‏ والتي 


سنتعرف عليها بالتفصيل فى جزء قادم من الكتاب. 


5. 4. التحويل باستخدام Convert‏ 
يمكن التحويل بين اي انواع من البيانات باستخدام الفثة Convert‏ بالشكل التالي مثلا: 


CH 


myByte = Converr.roByte mylnt);j 


VB.NET 


myByte - Convert.ToByte (myInt) 





6 الحمل الشرطية فى net‏ 
6 1. أساسبات الشروط 
ابسط الجمل الشر ds‏ هي تلك التي تستخدم else‏ ؟1. وطريقة کتابتها بالشکل التالي: 


if (x == 5) 


Console.WriteLine("five"); 
else 
Console.WriteLine("notFive"); 
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If x = 5 Then 


Console.WriteLine("five") 
Else 

Console.WriteLine("notFive") 
pud Ir 


يتم استخدام كافة انواع المقارنات << و != و > و > في الجمل الشر Ante‏ ۰ یمکن دمج اكثر من 
شرط باستخدام else if‏ بالشکل التالي: 





(x » 90) 
Console.WriteLine "ممتاز۲)‎ ( 


else if 


{ 


Console.WriteLine ("awl 5") ; 


If x > 90 Then 
Console.WriteLine ("ممتاز")‎ 
Elseif x -= 50 Then 
ConsoleWritebhine("asL3") 
Else 
Console.WriteLine )"ر اسب"(‎ 
وان‎ lc 


يتم تطبيق الجملة الأولى في حالة کون الناتج (True)‏ والا يتم تنفين الشرط الثاني. النظام 


القديم للغات السي والتي كانت تقضي بانها صحية لو كانت تساوي 1 ايضا مثل الجملة التالية: 





كنا قد تعودنا مع عائلات اللغات التي تتبع ال C‏ أن نقوم بكتابة بعض شر وطنا بالشكل التالي : 


CH 


دنست !. نص سه IT St‏ 


حيث يمكن لو كان له قيمة أن يحقق الشرط = True‏ هذا النظام لم يعد صالحا مع السي 


شارب بعد . 
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6 2. دمح الشروط 


لعمل اكثر من شرط یمکن استخدام && أو And‏ للدمج بين الشروط بحيث يتم تنفید الشرط في 
حاله کونهم جمیعا True‏ او استخدام معامل OF‏ والذي يتم كتابته في سي شارب بالشکل التالي 
| | فيعطي نتيجة في حالة کون اي واحد منهم صحيحاً ( المعامل qn, NOt‏ یکتب بالشکل 
التالي ! فيعني في حالة عدم (نفي) لاتنس ترتیب الاقواس في هذه الحالات حتی لا تتداخل 
الشروط بالشکل التالي مثلا: 

ڪو د | CH‏ 


if ((x < 90 || x > 50) && (!name = "ahmed")) 


VB.NET 


If (x < 90 Or x > 50) And (Not Name = "ahmed") Then 


End It 





AndAlso .3 6‏ 
كنا مع عادتنا في برمجيات .net‏ وفي المعامل And‏ ان يتم اختبار الشررطین. ويكون لها جدول 
الناتج التالي : 





الجدول 6. 2. جدول الحقيقة الخاص بالمعامل And‏ 


وبرغم انك تلحظ بإنه في حالة کون الطرف الأول false‏ فان الجملة مباشرة ستكون خاطنة 
ولا يوجد أي داعي للتحقق من الجزء الثاني من الشرط c‏ ولكن للاسف هذا ما لا يفعله المعامل 
.And‏ 

لکن مع 50 ۸۳021 فالموضوع مختلف » فهو يعيد false‏ مباشرة في Atle‏ وجود اي تعبیر 


ES 
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ماذا تستفید من ذلك 9 ببساطة شديدة » لنفترض الکود التالی : 


(id > 0 & SearchForID(id) > 0) 


// do something 


VB.NET 


If id > O And SearchForID(id) > O Then 
۲ do something 
End If 


في الواقع Ging‏ لو كان ال Id‏ اصغر من الصفر ۰ فسیتم تنفين pol‏ البحث وهو Le‏ ينتج بط ء 
شدید جدا في المعالجة لا نحتاج الیه » يتم التغلب علیها بالطريقة التقليدية بالشکل التالي : 





lid > 0) 


ift (5oadrchFPoriDiid) > 0) 


{ 
// do something 


ITE id. > O Then 
If SearchForID(id) > 0 Then 
۲ do something 
End IT 
End II 


(id > 0 $$ SearchPForID(id) > 0) 


// do something 


VB.NET 


If id > 0 AndAlso SearchForID(id) > 0 Then 
' do something 
uu lr 
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OrElse .4 60 


كما هو الحال مع ANd‏ يتكرر الأمر مع المعامل OF‏ والدي له جدول النتائج التالي : 





الجدول 6. 2. جدول الحقيقة الخاص بالمعامل Or‏ 


وبرغم انك تلحظ بانه في حالة کون الطرف الأول True‏ فان الجملة مباشرة ستکون 
صحيحة:؛ ولا يوجد أي داعي للتحقق من الجزء الثاني من الشرط . ولکن للاسف هذا ما لا یفعله 
المعامل Or‏ 

من dol‏ هذا كان المعامل 56 01۳1 والدي لا یکلفک clic‏ التحقق من Bac‏ مدخلات كما 


هو الحال في الدرس السابق ايضاً مع 22021150 . 
6 5. استخدام ال switch‏ 


طريقة اخری للجمل الشرطية هي استخدام SWITCH‏ بالشکل التالي: 


switoh €x) 


{ 


case 90: 
Console.WriteLine ("jLino"); 


break; 

case 50: 
Console. Wr ام‎ ۱۱۵ ("<1") 7 
break; 
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Select Case x 
Case 90 


Console.WriteLine ("ممتاز")‎ 

Case 50 
Console.Writebhbine("seL3") 

End Select 


Y‏ تنس اضافة break‏ في اخر الشرط . السبب ان ذلك یمنع المتر جم من الاستمرار في اختبار 
باقی الشر‌و do‏ عندما بعثر على اول شرط . اما اذا كنت ترغب فى مروره على كل الشرو de‏ حتی 


مع تحقق اي منهم فلا تضف break‏ في الفیجوال بیسک لن تتعر ض لهده المعضلة . 


7. الحلقات التکرارية 


نستخدم الحلقات التکرارية لتکرار سطر او امر عدة مرات ۰ ستشرح طرق التكرار في هذا الدرس 


على عجالة: 





For-Next Loop 7 


حلقة تكرار يتم تحديد نقطة البداية والنهاية ومقدار الخطوة فیها . ابسط مثال عليها الكود التالي 


for (int i م‎ d « 105 Sw) 


Console.WriteLine (i); 


VB.NET 


For i As Integer = 0 To 9 
Console.WriteLine (1) 
Next 


Por {int i | d < 102 i +s 2) 


Console.WriteLine(i); 
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VB.NET 


For i As Integer = 0 To 9 Step 2 
Console.WriteLine (1) 
Next 





While Loop 2.7 


حلقه تکرار تستمر في العمل حتى تحقق شرط معین ۰ لنفترض Wis‏ حتى و صول العداد إلى رقم 
10: 


int x = Q0; 

while (x < 10) 

{ 
Console.WriteLine (x); 
xtt; 


VB.NET 


Dim x As Integer 
While x « 10 


Console.WriteLine(x) 
X+=1 
End While 





حالة اخرى غير رقمية › ادخال بيانات حتى ادخال Ga. "exit"‏ هذه الحالة سوف نضيف DO‏ 


في البداية ونضع While‏ في النهاية. 


string inp; 
do 
{ 


inp = CONE OLE. Readhine (53 
Console.WriteLine (inp); 


} 


while (inp != "exit"); 





107 


الباب السادس مکونات اللغة الرئيسية 


VB.NET 


Dim inp As SUring 
Do 
inp = Console.ReadLine() 


Console.WriteLine (inp) 
Loop While inp <> "exit" 


intl] arr = 4. 10, 20, 30, 40 Fi 
foreach (int 1 in arr) 
Console.WriteLine (i); 


VB.NET 


Dim arr As Integer() = {10, 20, 30, 40} 

For Each i As Integer In arr 
Console.WriteLine (i) 

Next 
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gaail .1‏ برنامجنا الأول 


لو لاحظنا برنامجنا الأول لطباعة جملة Hello World‏ والذي كان بالشكل التالی: 


using System; 

using System.Collections.Generic; 
using System.Text; 

namespace ConsoleApplication4 

{ 


Glass Program 


{ 
static void Main(string[] args) 
{ 
Console.Write ("Hello World"); 
Console.ReadKey(); 





: في فیجوال بيست فکان بالشکل التالي‎ Lei 
VB.NET 


Module Modulel 
Sub Main() 
Console.Write("Hello World") 


Console.ReadKey() 


End Sub 
End Module 





Lei USING هو استیراد المکتبات التي سنستخدمها لكتابة اکوادنا باستخدام‎ CH ما سنجده في‎ J gl 
هو‎ Module JI: قمت بكتابة الأكواد داخله مباشرة‎ Module في الفیجوال بیسک فتم تعريف‎ 
ينشأها الفیجوال ستودیو‎ Shared-static هي‎ Ll أن جمیع‎ lae Le عادية‎ Class ai 
VB لک في حالة کون مشروعک من نوع‎ 

الجزء الثاني في كود CH‏ هو تعریف ال name Space‏ الخاص ببر نامجنا وهو الاسم الذي تو ضع 
تحته كل مکونات البرنامج » ومن ثم ال Class‏ الاساسي لدینا باسم Main‏ ... كما تعلمنا في 
اي مبادئ للبرمجة كائنية التوجه فان أي برنامج یتکون من واحد او اکثر من ال Classes‏ الدالة 
الرئيسية في ال Class‏ المسمی Main‏ هي الدالة main‏ والتي يتم تنفید‌ها اول شيء في 


البرنامج. تستقبل الدالة Main‏ محموعه من البامیتیر تحت اسم 2105 .۰ معنی هذا ان البرنامج 
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یستقبل مع تشغیله مصفوفة من args[0]‏ إلى cargs[n]‏ یمکن ارسال كل ما ترید إلى 
البرنامج من خلالها ۰ و هو ما یسمی Command Line Parameters‏ . 


لكي لا نبعد عن مسارنا في الشرح »ال ۸۲85 Command Line‏ هي مجموعة من المتغیرات التي 


یمکن تمریرها للبرنامج وقت تشغیله لتتحکم في بعض النقاط » مثلا لو قمنا بكتابة الامر التالي: 


Shell | کود‎ 





Explorer http://www.vb4arab.com 


اول ما يتم فتح برنامج Explorer‏ » يقوم بقراءة النص الممرر له . اذا كان موقع انترنت یقوم 
بفتحه بالشکل المعهود لمتصفح الانترنت» اما لو كان مسار C Yie‏ فسیقوم بفتح متصفح 
المجلدات مع انهم نفس البرنامج في النهاية . 

تستطیع تجربة ذلك على برنامجک من خلال قراءة المتغیرات الممرة له عن طریق FOI‏ 


Loop 


for (int 1 = 0; 1 < args.Lbength; 1) 
Console.WriteLine(args[il); 


For i As Integer = 0 To args.Length - 1 
Console.WriteLine (args (1) ( 
Next 





OF!‏ قم بالذهاب إلى RUN‏ قم بكتابة مسار برنامجک ومن ثم مسافة ومن ثم كتابة البار میترات 


التي ترغب في تمريرهاء في جهازي کتبت الامر التالي في :Run‏ 


(Cc xls s gne: DME vede. EUG 


2008\Projects\ConsoleApplication4\ConsoleApplication4\bin\Debug\con 
soleapplication4.exe ahmed ali 





الناتج الذي ظهر لي كان بالشکل التالي: 


113 


الباب السابع مکونات اللغة الرئيسية 





E CAUsers'AhmedYDocumentsVisual Studio 2008\Projects\ConsoleApplication4\ConsoleApplication... ' 





الصورة 7. 1. نتائج تشغیل الأمر في الشل 


خنطبیق سريع ۰ سنقوم بقراء2 المتغیر الأول وهي حاله و جود 0 Wis‏ يتم تلوین خلفية الکلام 
بالازرق 2 وفيما عدا ذلك يتم تلوین خليفة الکلام poe YL‏ ۰ هذا هو الکود الخاص یبد لک : 


if (args[0] == "O") 

{ 
Console.BackgroundColor = ConsoleColor.Blue; 
Console.WriteLine ("0 enterd"); 

j 

else 

{ 
Console.BackgroundColor = ConsoleColor.Red; 
Console.WriteLine ("Empty") ; 

j 

Console.ReadKey(); 


IF args(0) = "0" Then 
Console.BackgroundColor = ConsoleColor.Blue 


Console.WriteLine("O enterd") 

Else 
Console.BackgroundColor = ConsoleColor.Red 
Console.WriteLine("Empty") 

End If 

Console.ReadKey )( 





تواجهنا هنا مشکلة. ماذا لو لم نقم بتمریر اي متغیرات .. ستظهر لک رسالة خطا . اذن نحن 
بحاجة a£ UB‏ من و جود بارمتیرس قبل قراءتها . سنقوم بذلک عن طریق التأكد من و جود 
متغيرات ۰ fa)‏ ڪان هناك فیتم ae UM‏ من کونها صفر › إذا dI‏ اي من الشرطين نلجاً للون 


الشانی : 
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if (args.Length < 0) 


(args[0] == "O") 


Console.BackgroundColor - ConsoleColor.Blue; 
Console.WriteLine("O enterd"); 


else 

{ 
Console.BackgroundColor = ConsoleColor.Red; 
Console.WriteLine ("Empty"); 


} 
Console.ReadKey(); 


VB.NET 


If args.Length > 0 Then 
If args(0) = "0" Then 
Console.BackgroundColor - ConsoleColor.Blue 
Console.WriteLine("O enterd") 
End If 
Else 
Console.BackgroundColor = ConsoleColor.Red 
Console.WriteLine ("Empty") 
End If 
Console.ReadKey )( 





هناك حل آخر . ماذا لو احببنا ان نجعل التأحكد في سطر واحد بالشکل التالي 


CH 


if (args.Length <0 »عع‎ args[0] == "O") 


VB.NET 


If args.Length > 0 AndAlso args(0) = "0" Then 





هذا يعنى انه سيتأحد من و جود بارميترس . 131 و جدها سينتقل للشرط الثانی وادا لم يجدها فانه 
يخرج مباشرة دون قراءة الشرط الثاني... 
الجدير بالذکر ان المعامل And‏ لن يمكن تطبيقه في VB.net‏ بل ستضطر لاستخدام AndAlSO‏ 


الذي سبق شرحه في دروس سابقة. 
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Functions الدوال‎ .2 


كما شاهدنا في دالة Main‏ یمکننا انشاء اي عدد من الدوال sae CL‏ من المتغیرات ۰ کل 
ما نحتاج إليه هو معرفة البارمتیرات التي نرید لها ان تصل للدالة ۰ وايضاً الناتج الخار ج منها؛ 
لنفترض Mie‏ اننا نصمم دالة لعملية الجمع ۰ تستقبل رقمین İnt‏ وتخرج İnt gib‏ ستکون 
الدالة بالشکل التالي: 


statig int sum(int numberl, int numberZ) 
{ 
int total = numberl + number2; 
return total; 


VB.NET 


Private Function sum(ByVal numberl As Integer, ByVal number2 As Integer) 
Integer 

Dim total As Integer = numberl + number2 

Return total 
End Function 


Inr result = sumi5, 9); 
Console.Write(result); 
Console.ReadKey(); 


VB.NET 


Dim result As Integer < sum(5, 8) 
Console.Write(result) 
Console.ReadKey )( 


لماذا تم تعریف SUM‏ على انها STATIC‏ في السي شارب ٩٩‏ 





السیب انه M‏ يمكن استدعاء Alfa‏ غير STATIC‏ من خلال دالة berg. Static‏ ان دالة Main‏ هی 
من نوع static‏ فلا بد من ان تکون اي دالة اخری يتم استدعائها من خلال ال main‏ هي 
t LO‏ انضا س تغرف site‏ حكن التفاصيل. الأضافية iux‏ , 
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Methods الطرق‎ .3 


الطرق هي الدالة التي لا تعید ناتج » مثل دالة عرض كتابة رسالة بالشکل التالي: 


vöid printmsg(string msg) 


{ 


Console.WriteLine (msg); 


} 
في الفجيوال بيسك 6 كان يتم تعريف الطريقة باسم (SUD‏ وهو المستمر ايضًا مع VB.net‏ 
ليكون بالشكل التالي: 





VB.NET 


Private Sub printmsg(ByVal msg As String) 
Console.WriteLine msg) 
End Sub 





out الوظليفة‎ .4 


كما تعلمنا في المثال السابق فاننا نقوم بارجاع النتيجة من خلال fale return‏ لو ار دنا 


alel‏ نتيجة من VOI Ala‏ يتم ذلك باستخدام الدالة Out‏ بالشکل التالی: 


static void sumi(int numberl, int mnumberz, cur int total) 
{ 


total = numberl + number2; 


Private Shared Sub sum(ByVal numberl As Integer, ByVal number2 As Integer, 
ByRef total As Integer) 

total = numberl + number2 
End Sub 





الدالة السابقة الخاصة بالفیجوال بيست هي التر جمة الصحيحة لکود ال CH‏ ولکن لكي تعمل 
معک بصورة صحيحة في Module‏ لا بد أن تستغني عن Shared‏ لذا سنقوم بالاستغناء عنها 


ابتداء من هذا الکود حتی يحين موعد شرح معناها و فاتدتها . 
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وعند استدعاء الدالة يتم تمریر المتغیر الذي نحتاج الیه لعرض النتيجة ایضا: 


lut results 

sum(o. o,ü08t result); 
Console.Write(result); 
Console.ReadKey(); 


Dim result As Integer 
Sum (oO, 8; result) 
Console.Write(result) 
Console.ReadKey() 





ولکن ما هو السبب الذي قد يدفعني لاستخدام هذه الطر Ads‏ بدلا من استخدام 


sreturn 


الاجاية الایسط. هي انني لو ار دت اعاده ge‏ من ننیحه متل ناتج الضرب والجمع و القسمه . فليس 


امامي حل سوی اعادة مصفو 48 بالار ald‏ و قراءتها هناك الحل الابسط هو باستخدام Duc‏ 


5 الارسال بالهرجع byref‏ و الارسال بالقيمة 
byval‏ 


لنفتر ض المتال الخاص بعملية الطر ح بالشکل التالي: 


VB.NET 


Dim x As Integer - 
Dim y As Integer 
sub (x, y) 





و الداله: 
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static void sub(int numberl, int numberz) 


{ 


numberl = numberl = number2; 
return numberl; 


VB.NET 


Private Sub [sub] (ByVal numberl As Integer, ByVal number2 As Integer) 
numberl = numberl - number2 
Return numberl 

End Sub 





في الداله السايقه قمنا بنغییر قیمه number!‏ ولکن هل سیغیر هذا من قيمة X‏ التي ار سلناها 
الإجابة هي بلا » هذا ما يعرف بارسال القيمة حيث نقوم في هذه الحالة بارسال قيمة X‏ إلى الدالة 


الارسال بالمرجع ByRef‏ هي الحالة AGN‏ في هذه الحالة يتم ارسال عنوان المتغير × في 
الذاكرة إلى الدالة « هذا ما يعني ان اي تغيير في numberl‏ سيؤثر بالضرورة على المتغير X‏ 


لكتابة الكود السابق يطريقة ByRef‏ نکتب الكود التالى: 


static void sub(ref int numberl, ref int number2) 
1 

int result = numberl - number2; 

return result; 


Private Sub [sub] (ByRef numberl As Integer, ByRef number2 As Integer) 
Dim result As Integer = numberl - number2 
Return result 

End Sub 


الارسال بالقيمة یمکن تطبیقه فقط مع المتغیرات البسيطة اما المتغیرات المركبة مثل 121101 ات 





فیتم التعامل معه ByRef‏ افتراضیا... 
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6 الموصفوفات Arrays‏ 
في هذا الدرس سوف نتعرف على المصفوفات و کيفية استخدامها و تعریفها. 
1.6 ما هي المصفوفات Arrays‏ 


المصفوفة هي عبارة عن سلسلة من البیانات من نفس النوع ۰ لتعریف Array‏ من الارقام طو لها د 


عناصر نكتب الکود التالي: 


CH 


int[] intarray = new int[5]; 





VB.NET 

Dim intarray As Integer() = New Integer (4) 

يبدا الترقيم في المصفو فات من الصفر وحتی 4 لقراء2 احد عناصر المصفوفة نکتب كود مثل 
التالی: 


C# 
Console.WriteLine(intarray[3]); 


VB.NET ۱ ود‎ 


Console.WriteLine (intarray (3) ( 


و لقراء2 جمیع العناصر یمکن استخدام حلقات التکرار بالشکل التالي 





for (int i = 0$ i < 5; i++) 
Console.WriteLine(intarray[i]); 


VB.NET 


For i As Integer = 0 To 4 
Console.WriteLine (intarray (1) ) 
Next 
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6 2. تکوین المصفوفات 


الطر aa‏ الاسهل لادخال البیانات إلى المصفوفة بالشکل التالي مثلا: 





أو عن طریق حلقة تکرار ایضا › إلا ان هناك طريقة آخری لادخال البیانات إلى المصفو A8‏ بالشکل 


التالي مثلا: 
ڪو د | CH‏ 
34 تبك ,20 ,1.15 INCL. xmntarray = new inti]‏ 





VB.NET 


Dim intarray As Integer() = New Integer() (15, 20, 13} 





= 


6 3. المصفوفات متعددة الأبعاد 


جميع المصفوفات السابقة هي مصفوفات احادية البعد one dimensional‏ ۰ هناك انواع 

اخری من المصفوفات ثنائية او متعددة الایعاد Multi dimensional‏ . هذا مثال على مصفو فة 
ثنائية الابعاد - تسمی باسم- Matrix‏ : 

CH 


int matrix = new int[3, 3]; 


VB.NET 


Dim matrix As Integer = New Integer (2, 2) 
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سیکون شکل sacas!‏ فة بالشکل التالي (افتراضي) : 
000 
000 
000 


ویمکن ادخال البیانات إلى نقطة من المصفوفة بالشکل التالي: 


CH 


int matrix - new int[3, 3]; 
[Por (LMC Lh = 0f x» € 3» ats) 
Lor (ine J= OF. 3 < SF. JTF) 
maāatrix[i; 3 Console.ReadLine(); 


Dim matrix As Integer = New Integer (2, { } 
For i As Integer = 0 To 2 
For j As Integer = 0 To 2 
matrix(i, J) = Console.ReadLine )( 
Next 
Next 





و الطباعة ینفس الشکل ایضا. 
Jac .4 6‏ مصغوفة من المصعوفات 
یمکن عمل مصفوفة يحتوي كل عنصر منها على مصفوفة بالشکل التالي: 


CH 


int[][] complexarray = new int[5][]; 


VB.NET 


Dim complexarray As Integer()() = New Integer(4)() 
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ویمکن الوصول CY‏ عنصر فیها عن طریق الکود التالي مثلا: 


CH 


Console.WriteLine(complexarray[1][4]); 


VB.NET 


Console.WriteLine (complexarray (1) (4)) 





و هدا ما يعني العنصر رقم 4 من المصفو 43 الاو لى المو 53952 ضمن المصفو 43 complexarray‏ 


6 5. ارسال و استقبال المصفوفات من و إلى الدوال 
یمکنک عمل داله لطباعه Gli gine‏ مصفوفة بالشکل التالي: 


static void print (ant [| arr) 
for (int x — 0; T < arr.Lbhengbhs 14) 
Console.WriteLine.(arr[0]); 


Private Sub print(ByVal arr As Integer()) 
For 1 As Integer = 0 To arr.Length - 1 
Console.WriteLine (arr (0) ) 





Next 

End Sub 
افتراضیا. لذا أي تعدیل في الدالة سیوثر على‎ Dyref لا تنسی طبعا انه يتم التعامل معها‎ 
المصفو 4.3 الاساسية.‎ 


فى Atle‏ کون ال array‏ هی ما نود اعادته من الدالة return‏ نکتب الکود بالشکل التالی: 


static 1۳1 ] [ read() 


{ 


int[] arr = new int[3]; 


for (int 1 = 0: i < 3r 14) 
arr[i] Console.Read(); 
return arr; 
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Private Function read() As Integer() 
Dim arr As Integer() = New Integer(2) {} 
For i As Integer = 0 To 2 


arr (1) = Console.Read() 
Next 
Return arr 
End Function 





6 6. خصانص المصفوفات الرئيسية 
تحتوي المصفوفات على بعض خصائص ودوال قد تساعدك في العمل عليهاء اشهرها و اکتر ها 
ات ها 
الخاصية الاستخدام 
Length‏ تحدد طول عناصر المصفوفة 
ناهد تقوم بترتيب عناصر المصفوفة 
Reverse Reverse‏ تقوم بعکس ترتیب عناصر المصفوفة 


ToString‏ لتحویل المصفوفة إلى متغیر نصي 
Rank Rank‏ تحدد عدد الایعاد في المصفو فه 





Array at الجدول ۰7 1. خصائص‎ 


Enumeration ال‎ ./ 


اختصار enumerations - J‏ تحتوي على مجموعة من العناصر تمثل حالات وقيم مختلفة 
داخل البر نامج. 

ابسط مثال على ال Enum‏ هو استخدامها في حالة لمودیلات السیارات ۰ لنفترض لدینا 
ثلاث انواع من السیارات ۰ Nissan Toyota‏ و ot. FIAT er‏ كنا نقوم يتخزينهم على شکل 
قيم 1.0 و 2 في قاعدة البیانات مثلاء فاننا لا نرید ان نجبر المبرمج على ادخال رقم کل Bylaw‏ 


بل یمکنه ادخال اسمها والذي سیتم تر جمته لاحقا إلى الرقم المناظر له. 
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enum Cars 


{ 


toyota = 
nissan 
fiat = 


Enum cars 
toyota = 
nissan 
fiat = 

End Enum 





PE ختصار المساحة‎ Enum ایضا تحديد المساحه التي يتم تخزين فيها عنصر ال‎ Lise 


تحدید النو ¢ byte‏ كمثال على ذلك بالشکل التالي: 


enum cars : byte 
{ 
toyota = 
nissan 
fiat = 


Enum cars As 


toyota = 

nissan = 

fiat = 2 
End Enum 





125 


مکونات اللغة الرئيسية 


الباب السابع 


الآن یمکننا استخدام الاسماء الجديدة في البر مجة بدلا من الارقام أو الرموز Les‏ يكفل لنا سهولة 


Static void printPrice(cars mycar) 
1 
if (mycar == cars.fiat) 
Console.WriteLine("20,000"); 
else if (mycar == cars.nissan) 
Console .Writebine ("30,000"); 
else 
Console .Writehbine ("40,000"); 


VB.NET 


Private Sub printPrice (ByVal mycar As cars) 


If mycar = cars.fiat Then 
ConsoleWriteLine("20,0D0^) 
ElseIf mycar = cars.nissan Then 
Console. Writeline ("30,000") 
Else 
Console. .Writehine ("40,000") 
End Ir 
End Sub 





هكذا نجد اننا نستخدم اسماء واضحة رغم ان القیم الفعلية المخزنة هي من نوع DYTE‏ 


اوضح ما یمکنک تخیله حکفائدة لل Enum‏ هي دوال API‏ الخاصة بالویندوز ۰ في الواقع انت 


ترسل بیانات Jis‏ 00 ۸1272 للدوال » لکن في الواقع تجد نفسک ترسل بعض الأسماء الواضحة 


مثل Local‏ كد لاله لمتغیر ما ید لا من الرموز المعقدة والتي سیصعب عليكت فهمها دون و جود 
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Structures التراکیب‎ .8 


ال Structure‏ او Structs‏ هي انواع مخصصة من البیانات یمکنک انشاء‌ها تستطیع حمل اي 
خصائص على شکل متغیرات او حتی دوال و خلافه ۰ ابسط مثال على Struct‏ هو مثال السبارة « لكل 
سيارة نجد مودیل الصنع واسم الماركة ورقم اللوحة مثلاً »> یمکننا کتابة ال Struct‏ بالشکل 
التالي مثلا: 


struct Car 


{ 


public int carNumber; 
public int year; 
Public string factory; 


VB.NET 


structure Car 
Public carNumber As Integer 
Public year As Integer 
Public factory AS SCring 
End Structure 


والآن عندما نرید تعریف نسخة من (سیارة) فاننا نقوم بتعیین خصائصها بالشکل التالي: 





Car ahmedcar = new Car(); 
ahmedcar.carNumber - 1000; 
ahmedcar.rtactory = "Nissan"; 
ahmedcar.year = 2007; 


VB.NET 


Dim ahmedcar As New Car() 
ahmedcar.carNumber - 1000 
ahmedcar.factory = "Nissan" 
ahmedcar.year = 2007 


يمكن ان يحتوي ال Struct‏ على عنصر هو الآخر بدوره 56121125 6 لو افترضنا Struct‏ 
لرخصة السیر يحتوي على اسم المستخدم والسنوات المتبقية لانتهاء الر خصه ٠ P‏ قسیکون دذ لک 
بالشکل التالی: 
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strucr Licence 


{ 


public string UserName; 
public int yeersloranish,; 


VB.NET 


Structure Licence 
Public UserName As String 
Public yearsToFinish As Integer 
دناه الواساة‎ - 


والآن لو اردنا ان نجعل رخصة السير جزء من خصائص السيارة » فسيتم ذلك بالشكل التالي: 





Struct Car 

{ 
public int carNumber; 
public int year; 
public string factory; 
public Licence carLicence; 


VB.NET 


SLIAUCLHIe Car 
Public carNumber As Integer 
Public year As Integer 
Publico factory Ase SCring 
Public carLicence As Licence 
End Structure 





و لتحدید خصاتص اي سيارة سنکتب كود بالشکل التالي: 


Car ahmedcar = new Car(); 
ahmedcar.carNumber - 1000; 


ahmedcar.factory - "Nissan"; 

ahmedcar.year - 2007; 
ahmedcar.carLicence.UserName - "Ahmed Gamal"; 
ahmedcar.carLicence.yearsToFinish = 3; 





128 


الباب السابع مکونات اللعم الرئيسية 


VB.NET 


Dim ahmedcar As New Car() 
ahmedcar.carNumber - 1000 


ahmedcar.factory = "Nissan" 

ahmedcar.year = 2007 
ahmedcar.carLicence.UserName = "Ahmed Gamal" 
ahmedcar.carLicence.yearsToFinish = 3 





Struct ال‎ Yala الدوال‎ chiil .1 .8 


یمکننا فى داخل اي ]511120 انشاء دالة لتقوم ببعض العملیات على هذا ال ‘Struct‏ 
daa‏ مثال على ذلك لو اردنا عمل renew als‏ لتجديد رخصه السير» يمكن فى هذه الحاله 


atic‏ ال 51121121 بالشکل التالي: 


struct Licence 
{ 
public string UserName; 
public int yearsToFinish; 
public void renew(int periode) 
{ 
yearsToFinish += periode; 


} 


VB.NET 


Structure Licence 
Public UserName As String 
Public yearsToFinish As Integer 


Public Sub renew(ByVal periode As Integer) 
yearsToFinish += periode 
End. Sub 
End Structure 





و هکدا یمکننا تجدید فترة الر خصة عن طریق الو صول إلى هذه الدالة مباشر ة. 
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في التطبیقات الفعلية في العادة لا يسمح لک بالوصول إلى العناصر مباشرة الا عن طریق دالة 
وذلک لمنع ادخال بیانات مغلوطة مثلا . یمکن عمل Create Ala‏ لانشاء ال Mie struct‏ 
ويعد انشاء نسخه من ال 1۱:1 ٩۱‏ ینم استدعاء هذه الداله لملی البیانات Co‏ لن یسمح لک 


برؤية باقي المتغیر ات. 


هناك حل آخر باستخدام Constructor‏ او المشید 2» Co‏ یمکنک وقت انشاء نسخة من ال 


Struct‏ تمرير البیانات المطلوبة » يتم كتابة المشید بالشکل التالي: 


BLIUCL Lar 
{ 
private int carNumber; 
private int year; 
private string factory; 
private Licence carLicence; 
public Car(int p carNumber, int p.year, string p factory, Licence 
p. carLicence) 
{ 
carNumber = p_carNumber; 
LacLory = p factory; 
year = p year; 
carLicence - p carLicence; 


VB.NET 


Structure Car 
Private carNumber As Integer 
Private year As Integer 
Private factory As String 
Private carLicence As Licence 
Public Sub New (ByVal p carNumber As Integer, ByVal p year As Integer, ByVal 
p factory As String, ByVal p carLicence As Licence) 
carNumber - p carNumber 
IacLory = p factory 
year = p year 
carLicence - p carLicence 
End Sub 
End Structure 


لاحظ اننا حو UJ‏ 33 صول إلى المتغیرات لیکون private‏ بحيث لا يمكن 911 صول له co‏ ال 
(SU 11101‏ معرفات الوصول ستکون احد مواضیعنا حینما ندخل في عالم ال OOP‏ لذا لا تتعجل 





130 


الباب السابع مکونات اللغة الرئيسية 


ولکن يكفي ان تعلم ان PUDLIC‏ تجعل قابلية الو صول من اي مکان إلى المتغیر او الدالة › اما 
private‏ فلا يمكن الوصول لها إلا من داخل ال .Struct‏ 


Reference و الانواع‎ Value clgiill .9 


لو Duae‏ مرة آخری إلى درس انواع المتغیرات ۰ سنجد ان معظم انواع البیانات مشتقة 
من Value Type‏ معنی ان هذه الأنواع مشتقة من Value Type‏ ان کل متغیر منها يمثل نفسه فلو 


افتر Luo‏ مثالا بالشکل التالى: 


int x5; 

int y=x; 

y-19; 
Console.WriteLine (x); 
Console.WriteLine(y); 


Dim x As Integer = 5 
Dim y As Integer = x 
Lo 
Console.WriteLine (x) 
Console.WriteLine (y) 





سنجد ان كلا من X‏ و ۷ له قيمة خاصة به » برغم اننا ساوینا بینهم فى البداية › السبب اننا فى 


. × يحصل على قيمة‎ y متغیر‎ Lia المتر جم ان‎ aga =× ales 
.. ایضا.‎ SCruCct نفس هذا النظام ينطبق على المتغیرات الاساسية » على ال‎ 


الأنواع من نوع Reference Types‏ مثل ال Y Class‏ ينطبق عليها المثال » لنفترض مثال السيارة 
بالشكل التالي: 
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class car 


{ 


int carNumber; 
string carName; 


VB.NET 


Clase Car 
Private carNumber As Integer 
Private carName As String 
End Class 





والآن سنکتب نفس المثال السابق مع ال iint‏ سیکون المنال بالشکل التالي: 


Car x = new 

x.carNumber = 

Car ye x; 
Console.WriteLine (x == y); 


VB.NET 


Dim x As New Car )( 
x.carNumber = 

Dim y As Car 
Console.WriteLine (x 





لو كنت تظن Of‏ المتغیر Y‏ يحتوي على نسخة من 0317 یمکنک التعدیل علیها فأنت مخطا |3 ان 
یمکنک التآڪد من ذلك من JUS‏ كود مثل التالي: 


Car x = newCar(); 
Lar y X} 


x.carNumber=1; 

y~eCarNumber. =2; 
Console.WriteLine (x.carNumber); 
Console.ReadKey(); 





132 


الباب السابع مکونات اللعم الرئيسية 


Dim x As Car - 
Dim y As Car 


x.carNumber 

y.carNumber = 
Console.WriteLine(x.carNumber) 
Console.ReadKey() 


Car قم بجعل‎ Clone لا بد من تطبیق‎ Car المسمی‎ Class نسخة حقيقة من ال‎ Goal 
Clone ال‎ ata يكتافة‎ «89 ICloneable Interface يطبق: ال‎ Class 





10 . المقارنات 


لنعد مرة آخری لنقطة البداية 60 حيث يستخدم اغلب المبرمجين المعامل = أو المعامل == في 


CH‏ للمقارنة» ابسط امثلة ذلكت: 





تكون القيمة المحصلة True‏ في حالة التساوي فيما False ogs‏ في حالة عدم التساوي › 
و نقصد بالتساوي هنا التساوي الکامل متلا : 555 او 7<7 أو "Ahmed"="Ahmed"‏ و لکن 


هذا ینطبق فقط على الانواع البسيطة. 


ملا حظة 





الأنواع البسيطة هي الانوع مثل Int , Long, String‏ وغيرها... 


سنواصل شرحنا مع المثال التالي ایضا: 
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string a = new string(new char[] { م۳"‎ Te; "IT, 
string b = new string(new char[] { 'h', 'e', 'l', 
Console.WriteLine(a == b); 


VB.NET 


Dim a A0 NOW 2trind (ew Char() CE, Toti; TIC; ویر‎ "ec 
Dim b Ae New Bering (New Lhar() i("h"L, "e"L, TIC, PIC, OC) 
Console.WriteLine(a - b) 


object c = a; 
object d 
Console.WriteLine(c == d); 


VB.NET 


Dim c As Object =a 
Dim d As Object = b 
Console.WriteLine(c 





السطر السابق سیخیب ظنک للاسف « OF‏ الناتج سیکون False‏ الحل في هذه الحالة باستخدام 
المعامل Equals‏ 
CH‏ 


Console.WriteLine(c.Equals )0( ( 


VB.NET 


Console.WriteLine(c.Equals (d)) 








استخدام آخر للمعامل Equals‏ تلمقارنة بين ال 51۳65 مثلاً » لنفترض المنال التالي: 


Struct Car 


{ 


public int carNumber; 





joy 
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Public Structure Car 


public carNumber As Integer 
End structure 





والآن» لو قمنا بتعریف المتغیرات التالية: 


Car x = new Car(); 
x.carNumber=1; 

Ger م۳‎ 
Console.WriteLine 


Dim x As New Car () 
x.carNumber 

Dim y As Car 
Console.WriteLine (x 





ما هو الناتج الذي تتوقعه. المفتر ض ان تکون الرسالة المطبوعة هي ٩9٩ TIUO‏ للاسف هي حتی 
ليست OF False‏ هذا سیعطیک خطأ. 
الحل الصحیح هو باستخدام المعامل Equals‏ بالطر Aas‏ التالية: 


CH 


Console.WriteLine (x.Equals(y)); 





VB.NET ۱ TA 


)) 
في حالة تعریف Classes‏ » یمکن استخدام == ایضا بالشکل التالي: 





Console.WriteLine (x.Equals ( 


CH 


Console.WriteLine (Classl1--Class2); 


VB.NET 


Console.WriteLine(Classl = Class2) 
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أو Equals‏ كما في المتال السابق» هل تعرف لماذا یکون 


Memory ٩ True الناتج دائماً‎ 
X 









الاجابة المنطقية لهذا الموضوع هي آنک ستخبرني ان 
الکائنان يشيران لنفس المکان في الذاكرة 


لذا كان الناتج True‏ بالشکل المقابل Y‏ 


وهدا صحیح » لنفترض المتال النالي: 


Car x = new Car(); 
Car y = new Car(); 


x.carNumber=1; 
y.carNumber = 1; 


Console.WriteLine (x==y); 
Console.ReadKey )( ; 


Dim x As New Car )( 
Dim y As New Car )( 


x.carNumber = 1 
y.carNumber 1 


Console.WriteLine (x 
Console.ReadKey () 


ستکون النتيجة هي ... False‏ برغم ان الخصائص الداخلية Leg!‏ واحدة . الحل بكتاية دالة 
بالشکل التالي: 


bool isthesame(Car cl, Car c2) 


{ 


if (cl.carNumber == c2.carNumber) 
return true; 
return false; 
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VB.NET 


Private Function isthesame(ByVal cl As Car, ByVal c2 As Car) As Boolean 
If cl.carNumber = c2.carNumber Then 


Return True 
End IE 
Return False 
Function 





لکن ماذا لو كنا نرغب فى عمل نسخة جديدة من المتغیر ٩‏ 


فى هذه الحالة نستخدم Clone iae‏ بالشکل التالی: 


doCopy (Car Gl) 


Car newCar = new Car(); 
newCar.carNumber = cl.carNumber; 


return newCar; 


VB.NET 


Private Function doCopy (ByVal cl As Car) As Car 
Dim newCar As New Car() 


newCar.carNumber = cl.carNumber 
Y 


Return newCar 
End Function 





في كثير من العناصر الاساسية تجد الدالة CLONE‏ موجودة بصورة افتراضية » اي فثة مشتقة من 
lCloneable Aga! gl‏ ستجد هذه الدالة جاهزة للاستخدام مباشرة» لو كنت انت من تقوم 
ببرمجة الفئة Class‏ و قمت باشتقاقها من الفثة السابقة فستجد Clone ANA‏ موجودة لتقوم 
ببر مجتها بحيث تکون الفئة الخاصة بك على المعاییر القياسية 2 حيث یستطیع اي مستخدم 
al‏ من عمل Clone‏ لها مباشرة. 


Nullable Types 1 


فی عرف المتغيرات التقليدية تعد القیمه nuli‏ غير مقیو له اطلا قا؛ فالمتغير من 


نوع Boolean‏ مثلا لا بد ان يحتوي على True‏ أو False‏ . المتغیر Y Short‏ بد ان يحتوي 
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على ارقام ما بين الصفر و 32767 Mia‏ ... وهکذا » في حين كانت القیم النصية String Wis‏ 
تستطیع استیعاب القيمة null‏ لانها من نوع reference‏ 

(null - قيمة‎ Y) قيمة‎ Boolean يحمل متغير منطقي‎ OY في بعض الاحیان نضطر‎ lus 
ابسط امتلة ذلك هي‎ False أو‎ True بمعنى اننا غير قادرین على تحدید فیما إذا كان‎ 
عدم ادخال المستخدم لقيمة‎ Atle المشکلة التقليدية التي تواجه اغلب مبرمجي قواعد البیانات في‎ 
في حقل ما ولیکن حقل (متزوج)» و لنفرض ان المستخدم لم يحدد کون الشخص متزوجا من‎ 
Check وهو ما كان یستلزم عمل‎ null عدمه » في هذه الحالة سیظل الحقل یحتفظ بقيمة‎ 
قبل وضعها في اي متغیر من نوع 1 مثلا.‎ null على انها ليست‎ 

لكن ومع الاصدارة الثانية من net Framework‏ اصبح بالامكان تعريف متغير مخصص لیسمح 
بتقبل القيمة null‏ اضافة للقيم الاساسية له > كما في المثال التالي: 

ڪو د | CH‏ 


VB.NET 


Dim ismarried As System.Nullable(Of Boolean) = Nothing 





فى هذه الحالة یمکننا اسناده لقراء2 قيمة مباشرة من قاعدة البیانات دون القلق من کون القيمة 


الحالية nulla‏ 
هناك عدة طرق اخری لتعریف متغیر يقبل null‏ مثل الطر Ads‏ التالية ایضا: 


CF | ود‎ 
Nullable<bool> nullableBool = null; 


VB.NET 


Dim ismarried As System.Nullable(Of Boolean) = Nothing 





ol cu‏ ۶ هی Lied‏ اختصار Generic‏ المسمی ssaecSystem.Nullable«T»‏ ما سنتعرف 


على معناه فى آجراء قادمة من الکتاب. ويئفس الطر 445 فيما لو اردنا تعريف دالة یکون ال 


return‏ لها Nullable‏ فسیکون ذلك بالشکل التالی: 
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public bool? functionName() 


{ 


} 


VB.NET 


Public Function functionName() As System.Nullable(Of Boolean) 


End Function 





1 1. خصانص ال Nullable‏ 


اهم خصائص ال hullable‏ هي خاصية HasValue‏ والتي تحدد فیما )13 كان المتغیر به قيمة 


ام انه یحتفظ بقيمة null‏ بالشکل التالي: 


) 1 5۳02 1 1160۰. ۳1257۷721 156 ( 


VB.NET ۱ ود‎ 


If ismarried.HasValue Then 


End If 
یمکن کتابتها باستخدام وسائل المقارنة ایضا != أو >< في الفیجوال بیسک بالشکل التالي:‎ 








CH | كود‎ 


if (ismarried !- null) 


VB.NET ۱ ود‎ 





If ismarried <> Nothing Then 
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Y‏ تنس nothing oi‏ خاصة بالفیجوال بیسک بدلا من null‏ فی السی شارب 


Jolsgil .2 1‏ ؟؟ 


يمكن استخدام المعامل ٩٩‏ مع القیم ال nullable‏ لكي نخبره بوضع قيمة ما في All‏ 
و جودها ب null‏ لتفترض متال حاله الرواج السایق ۰ و سئفترضص ان اي شخص لم يقم بادخال 
بيانات الزواج فهو شخص اعزب یمعنی ان القیمه سنتصیح False‏ مباشر (à‏ ستقو م یکتابه الکو د 


التالي من اجل ذلك: 


CH 





int? ismarried = returnvaluefromdatabase() ?? false; 


VB.NET 


Dim ismarried As System.Nullable(Of Integer) = IIf(returnvaluefromdatabase() 
Nothing, [False], returnvaluefromdatabase )( 
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الفنات ومقدمة إلى 
البرمجه AS‏ النوجه 


الباب الثامن liall‏ و مقدمة إلى البرمجم کاننیم nagill‏ 


Classes إلى الفنات‎ Agaág . 1 


كما لاحظنا في دروسنا السابقة » فان البرنامج المنشأ تحت Console Application‏ يحتوي على 


... تحتوي بداخلها على دوال و متغیرات واجراءات وطرق‎ Class Program aul واحدة مسماه‎ Aii 


في الواقع فالبنية الاساسية CY‏ برنامج يطبق مبادئ OOP‏ هو الفئة Class‏ 


يمكن ان يحتوي البرنامج على عدة Glia‏ ۰ ویمکن Ol‏ تحتوي الفئه ایضا على عدة فتات بداخله « في 


حالة رغبتک فى عمل Class‏ منفصل یمکنک اضافة New Class‏ من .Project‏ 


يتم تعریف الفئة باستخدام الكلمة المحجوزة CLASS‏ ومن ثم اسمه . يتم تعریف مکوناته بين } { 
في السي شارب أو من بعد جملة التعریف حتی End Class‏ في VB.net‏ سنقوم بادراج فئة جديدة 
ونسميها ياسم PECSON‏ سنجد الكود التالى موجودا بصورة افتراضية: 


namespace ConsoleApplication4 
{ 

class Person 

{ 

} 


VB.NET 


Namespace ConsoleApplication4 
Class Person 


End Class 
End Namespace 





الجزء الأول الذي يحدد ال namespace‏ ضروري ۰ حيث يعني هذا Of‏ جمیع الفثات Classes‏ 
gall‏ جودة تحت نفس ال NAMESPACE‏ یمکنها 5 43$ بعضها الآخر . لذا سنتمکن من التعامل مع 
الفثة الجديدة من خلال main‏ الخاصة بنا في الفثة الاساسية المسماه Program‏ 

ابسط مکونات أي Class aa‏ هي المتغیرات ۰ یمکننا Wis‏ اضافة بیانات الاسم الأول والأخیر 


والعمر داخل الفئة Class‏ بالشکل التالي: 
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Class Person 


{ 


public string FirstName; 
public string LastName; 
public int Age; 


VB.NET 


Class Person 
Public FirstName As String 
Public LastName As String 
Public Age As Integer 

End Class 





OI‏ یمکن تعریف عدة کائنات Objects‏ من هذه الفثة بالشکل التالی مثلا؛ 


Person Ahmed = new Person(); 
Ahmed.Age = 15; 
Ahmed.FirstName "Ahmed"; 
Ahmed. LastName "Gamal"; 
Person Ali = new Person(); 
Ali.Age = 15; 

Ali.FirstName = "Ahmed"; 
Ali.LastName = "Gamal"; 


VB.NET 


Dim Ahmed As New Person )( 
Ahmed.Age = 15 
Ahmed.FirstName = "Ahmed" 
Ahmed.LastName = "Gamal" 
Dim Ali As New Person )( 
Ali.Age = 15 
Ali.FirstName = "Ahmed" 
Ali.LastName = "Gamal" 





Person [] MyEmpolyee = new Person[3]; 
MyEmpolyee| 0]. = new Person); 
.FirstName = "Ahmed"; 


MyEmpolyee[0] 
MyEmpolyee[0].LastName = "Gamal"; 
[0] 


MyEmpolyee .Age = 15; 
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VB.NET 


Dim MyEmpolyee As Person() = New Person(2) {} 


MyEmpolyee(0) = New Person() 

.FirstName - "Ahmed" 
MyEmpolyee .LastName = "Gamal" 
MyEmpolyee Age = 15 





كما قلنا في حالة ال «<SCrUCt‏ فان بامکاننا ایضا تعریف الدوال داخل الفئة (Class‏ سنقوم 


ببرمجة دالة تعيد لنا الاسم الكامل لشخص معين ۰ سنکون بالشكل التالي: 


public string getFullName() 
{ 


return FirstName + LastName; 


} 


VB.NET 


Public Function getFullName() As String 
Return FirstName + LastName 
ind Function 





Constructors الوشيدات‎ .1 1 


عندما تقوم بتعریف )( new Person‏ فان هذا يعني اننا نقوم بتشغیل الدالة ال 
Constructor‏ وهي الدالة التي تعمل مع تشغیل اي نسخة من البرنامج › افتراضیا تکون هذه 
الدالة خالية ویمکننا وضع بعض الاوامر فیها التي Los Dos‏ و گت إتشاء. بح > لعوكن dbz. Wa‏ 


تخبرنا بانشاء نسخة جديدة من 4441 CLASS‏ : 


New 
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public Person() 


{ 


Console.WriteLine ("new object"); 


} 


VB.NET 


Public Sub New() 
Console.WriteLine ("new object") 
End Sub 





یمکن فضا ان يستقبل ال Constructor‏ بار میتر س؛ فمثلا لجعل Constructors)‏ بستقیل الاسم 
الاو J‏ مع تعریف الاوبجكت الجدید ۰ فسیکون ذلك بالشکل التالي: 


public Person(string userfirstname) 


{ 


FirstName = userfirstname; 


} 


VB.NET 


Public Sub New(ByVal userfirstname As String) 
FirstName = userfirstname 
End Sub 





و لعمل نسخة جديدة سیتو جب Like‏ كتابة الکود التالی: 
CH‏ 


Person MyEmpolyee = new Person ("ahmed"); 


VB.NET 


Dim MyEmpolyee As New Person ("ahmed") 





Destructor المهدمات‎ 321 


عكس ال Constructor‏ يتم اطلاق هذا الحدث مع انهاء استخدام ال Object‏ لاصدار صوت Beep‏ 
مثلاً مع انهاء البر نامج: 
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^Person() 


{ 


Console.Beep(); 


} 


VB.NET 


Protected Overrides Sub Finalize )(‏ 
End Sub‏ 
نستفید من ال Destructor‏ في تنفين بعض العملیات قبل تدمیر الکائن Object‏ تماماء احیانا ما 
تحتاج إلى مسح جميع المتغیرات المر تبطة به في الذاكرة وهو الاستخدام الاشهر لهذا الحدت › 
ايضاً یمکن استخدامه لتغییر العدادات مثلاً والتي تقوم بعد النسخ من AX‏ معينة. 


this 2 


لتوضیح مفهوم الکلمة المحجوزة CNIS‏ في السي شارب سنعود إلى المتال في الدرس 
السابق مباشرة » والذي قمنا فيه بعمل Constructor‏ بالشکل التالی: 








public Person(string userfirstname) 


{ 


FirstName = userfirstname; 


} 


VB.NET 


Public Sub New(ByVal userfirstname As String) 
FirstName = userfirstname 
End Sub 


public Person(string FirstName) 


{ 


FirstName = FirstName; 


} 
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VB.NET 


Public Sub New(ByVal FirstName As String) 


FirstName = FirstName 
End Sub 


في هذه الحالة للاسف سیفهم الکو مبایلر انك تجعل FirstName‏ البار میتر يساوي نفسه e‏ و لن 
ینظر إلى FirstName‏ حمتغیر ضمن الاو Cc‏ . لتعریف الکو مبایلر بانک تقصد ان المتغیر 
الموجود في الاویجکت = البارمیتر المرسل سنستخدم الکلمة this‏ في CH‏ أو Me‏ في VB.net‏ 


والتي ستشير إلى المتغیر المو جود في الاو یجکت الحالي 





public Person(string FirstName) 


{ 


this.FirstName = FirstName; 


} 


VB.NET 


Public Sub New(ByVal FirstName As String) 
Me.FirstName = FirstName 
End Sub 


حتی فى الحالة السابقة التی تطرقنا لها فى الدرس السابق 6 قان استخدام ENIS‏ سیکون مناسب 


دائما c‏ ايسط Glial‏ ذلك هو اظهار قائمة بالعناصر المو جودة فى الاو CS‏ و قت البرمجة منت 





اللحظة التي تکتب فیها 5 111 ]. 
3. التعرف على static‏ 


لاحظنا في الدالة main‏ المو جودة اساسا في البرنامج اننا نستخدم الكلمة Static‏ في ال 


#)اضافة لمناظر ها Shared‏ في ال VB.net‏ ۰ فما معنی هذه الكلمة ٩‏ 


الكلمة Static‏ والتي یمکن استخدامها مع الدوال او الفثات او حتی المتغیرات تعني ان 
هذا المتغير او الداله يتم الو Qo‏ لها من على مستوی ال CLASS‏ مباشرة و لیس من مستوی ال 


Person لنمتر ض المتال التالی الخاص ب‎ object 
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Class Person 


{ 


public string FirstName; 
public string LastName; 
public int Age; 

static Public int Counter; 


VB.NET 


Class Person 
Public FirstName As String 
Public LastName As String 
Public Age As Integer 
Public Shared counter As Integer 
End Class 





و لنفترض اننا کتبنا الکود التالي مثلا: 


Person MyEmpolyee = new Person(); 
MyEmpolyee.Age = 15; 
MyEmpolyee.counter 


VB.NET 


Dim MyEmpolyee As New Person )( 
MyEmpolyee.Age = 15 
MyEmpolyee.counter 





cau MI‏ لن یکون هذا الکود Locos us‏ > حیث ان COUDnter‏ هو متغیر STATIC‏ ولدا تتم قراءته 


مباشرة على مستوی الفئة Class‏ بالشکل التالی: 


Person MyEmpolyee - new Person(); 
MyEmpolyee.Age = 15; 
Person.counter = 3; 


VB.NET 


Dim MyEmpolyee As New Person() 
MyEmpolyee.Age = 15; 
Person.coutiter 
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الباب الثامن 


لو قمنا بتعریف Object‏ جدید من نفس الفثة ۰ وقمنا بعرض قيمة ال counter‏ الخاصة 


به من داخل الفئة Class‏ سنجد Lg‏ 3 مباشرة » ذلك ان المتغیر »515131 يتم تعریف نسخة 


واحدة dis‏ على مستوی الفئة Class‏ لجمیع الکائنات Objects‏ التي يتم عملها die‏ 


متال على الاستفادة من هذه الخاصية هی خاصية العدادات» والتى تقوم بعد الاو بچکتس التی ننشآها 


من هذا الفئة (Class‏ سنضع الكود الاضفة في ال Constructor‏ فيما نضع كود النقص في 


class Person 


{ 
public 
public 
۱۳ 
static 
pupnlir 
{ 


string FirstName; 
string LastName; 

int Age; 

public int counter; 
string getFullName() 


return FirstName + LastName; 


) 
2 32 
{ 


Person )( 


countertt; 


} 


^Person() 


{ 


counLter--; 


} 
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VB.NET 


Class Person 
Public FirstName As String 
Public LastName As String 
Public Age As Integer 


Public Shared counter As Integer 


Public Function getFullName() 


Return FirstName + 
End Function 


Public Sub New() 
counter += 1 
Ena Su» 


Protected Overrides Sub Finalize() 


ity 


counter -- 1 
Finally 


LastName 


() 26 1۳211 ۳ . ۵ 5 2ظ ۱۷۲۷ 


End Try 
End Sub 
End Class 


As String 


الباب الثامن 





olo‏ سنقوم بانشاء عدد من الکاتنات » ومن ثم نقوم بعرض قيمة العداد: 


Person MyEmpolyee = new Person() 


Person MyEmpolyee2 = new 
Person MyEmpolyee3 new 
Person MyEmpolyee4 new 
Person MyEmpolyeeb5 = new 


Console.WriteLine (Person. 


VB.NET 


Person ( 
Person ( 
Person ( 
( 
* 


) ; 
) ; 
) ; 
ji 
) 


Person(); 


counte 


, 


Dim MyEmpolyee As New Person() 
Dim MyEmpolyee2 As New Person() 
Dim MyEmpolyee3 As New Person() 
Dim MyEmpolyee4 As New Person() 
Dim MyEmpolyee5 As New Person() 


Console.WriteLine (Person. 
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counter) 





والآن لو افترضنا الکود التالي: 


الباب voll‏ الفنات و مقدمة إلى Aagyll‏ كاننية nagill‏ 


CH 


Person[] MyEmpolyee = new Person[5]; 
Console.WriteLine(Person.counter); 


VB.NET 


Dim MyEmpolyee As Person() = New Person(4) {} 
Console.WriteLine (Person.counter) 


لا تتوقع ان الناتج سیکون 5 ۰ للاسف توقعک ليس في محله ۰ والسبب ان ايا من نسخ 





۰ تم يتم انشاءه بعد. الحالة التالية هي من ستعطیک الناتج 5: 


Person[] MyEmpolyee = new Person[5]; 

ror (int a = 07 Û € 5f 1T) 
MyEmpolyee[0] = new Person(); 

Console.WriteLine(Person.counter); 


VB.NET 


Dim MyEmpolyee As Person() = New Person(4) {} 
For i As Integer 0 To 4 
MyEmpolyee (0) New Person() 
Next 
Console.WriteLine(Person.counter) 





Static Class 1.3 


Static Class وبطبيعة الحال فان أي‎ Static Class ال‎ jue تم اعتماد‎ .net Framewrok 2.0 a 
اضف إلى ذلك فانه لیس من‎ (ST ALIC لا بد ان تکون جمیع المتغیرات والدوال فيه من نوع‎ 


المنطقى تعریف Object‏ من هذا Class aiat‏ باستخدام11617. 


في هذه الحالة یمکن استخدام الفثة Class‏ ودوالة مباشرة ۰ ابسط امتلة هذا Class Ji‏ هي 
MessageBox‏ والتي يمكن استخدامها مباشرة دون تعريف نسخه منها. 


CH 


MessageBox. Show (“Welcome”); 
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VB.NET 


MessageBox.Show("Welcome") 





4. اعادة التحمیل OverLoading‏ 


من اهم مبادئ ال OOP‏ هی تطبیق مبدئ ال Overloading‏ . حيث یمکن تسمية عدة طرق او 


ابسط مثال على عملیات ال Overloading‏ هي MessageBox. Show )( atta‏ في ال Windows‏ 


Forms 


لو جريت ستجد هده الأوامر مثلا : 


MessageBox. Show (string text); 


MessageBox.Show(string text,string caption); 
MessageBox.Show(string text, string caption, MessageBoxButtons buttons); 





و غیر ها pal ol 7 aus Lass]‏ . كل 5-19 منها عبارة عن داله خاصه ولهم re‏ نفس الاسم › 


لنتصور لو لم يكن مبدأ Overloading‏ موجوداً c‏ كنا سنضطر لكتابة دوال بالشکل التالی: 


MessageBox.ShowWithString(string text); 


MessageBox.ShowStringAndCaption(string text,string caption); 
MessageBox.ShowStringAndCaptionAndButtons (string text, string caption, 
MessageBoxButtons buttons); 





OWI Lei‏ و لتسهیل الاستخدام تجدهم (wr‏ ینفس الاسم. و هدا ما يسبب سهو له الاستخدام. 


لتطبیق ises‏ ال OverLoading‏ في دوالك یمکنک كتابة كود بالشکل التالي - لعملية الجمع مثلا 


في حین انك لا تدري هل یمرر لک في الفثة Class‏ قيم من نوع int‏ او من نوع double‏ 
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static int Adgdg(uinb x, int y) 
{ 
PEOLHEM x t y7 
} 
static double Add (double x, double y) 
{ 


DOLUEn 3 t y? 


} 
static long Add(long x, 


{ 


PELUEN X wv 


Private Shared Function Add(ByVal x As Integer, ByVal y As Integer) As Integer 
BOLUIIL XY 

End Function 

Private Shared Function Add(ByVal x As Double, ByVal y As Double) As Double 
BRerurn X t y 

End Function 

Private Shared Function Add(ByVal x As Long, ByVal y As Long) As Long 
POCU xw y 

End Function 


يمكن ان نعید الکرة مرة آخری مع ال Constructor‏ . فیمکنک عمل عدد منها حسب احتياج 
المستخدم › لو Dae‏ لمثالنا Person‏ یمکن تعریف ال Constructors‏ بالشکل التالی: 





class Person 
{ 
public String FirstName; 
public string LastName; 
public int Age; 
public Person () 4 
Console.WriteLine ("cl"); 
) 
public Person(string fname, string lname) 
{ 
FirstName = fname; 
LastName = lname; 
Lonsole.WriteLine("gz"): 
) 
public Person(string fname, string lname, int myage) 


{ 


FirstName = fname; 
LastName = lname; 

Age = myage; 
Console.WriteLine("c3"); 





155 


الباب الثامن الفنات و مقدمة إلى البرمجة کاننية nagill‏ 


VB.NET 


Class Person 
Public FirstName As String 
Public LastName As String 
Public Age As Integer 


Public Sub New() 
Console.WriteLine("ci") 
End Sub 


Public Sub New(ByVal fname As String, ByVal lname As String) 
FirstName - fname 
LastName = lname 
Console. Writebine ("ez") 

End Sub 


Public Sub New(ByVal fname As String, ByVal lname As String, ByVal myage As 
Integer) 
FirstName = fname 
LastName = lname 
Age = myage 
Console.WriteLine ("c3") 
End Sub 
End Class 





وبهده الطريقة یمکننا انشاء کائنات يأحد الطرق التالية: 


Person MyEmpolyee = new Person(); 
Person MyEmpolyee new Person("ahmed", "gamal"); 
Person MyEmpolyee new Person("ahmed", "gamal", 22); 


VB.NET 


Dim MyEmpolyee As New Person() 
Dim MyEmpolyee As New Person("ahmed", "gamal") 
Dim MyEmpolyee As New Person("ahmed", "gamal", 22) 
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Access Modifiers معرفات الوصول‎ .5 


في در وسنا السابقة ۰ كان معرف gt!‏ صول الافتر اضي الذي نقوم باستخدامه هو 0170110 
وذکرنا ان هذا يتيح لنا الوصول إلى هذه الدالة أو هذا المتغیر مباشرة من خلال ال Object‏ 
GE‏ ایض رقا .كو استخدهنا المعرف. 61317512 فلن تمك من Gey‏ هذا متیر ok‏ هتم iit‏ 
سوی من داخل CLASS AXAM‏ نفسه فقط 


في هذا الدرس سوق نتعرف على انواع معر GLa‏ الو صول المختلفه و الفر و قات بینها. 
EOL.‏ 


يتيح لك هذا المعرف الوصول إلى الدالة أو المتغير من ال ODJECE‏ مباشرة › ايضا لو ald‏ آحد 
باشتقاق الفثة Class‏ فسيجد هذه الدالة public‏ كما هى وسيمكن لل Objects‏ من aiat‏ 


Class‏ الجدید الوصول لها. 

:Private 

يمكن فقط رؤيته داخل الفثة Class‏ او ال Struct‏ الذي تم تعريفه من خلاله. 
210560 : 


لا يمكن الوصول المباشر لها من ال ODJECE‏ و لکن يمكن الوصول لها من الفئة Class‏ المشتق. 
:internal‏ 


يمكن الوصول لها داخل الاسمبلي الحالي فقط. 
:protected internal‏ 


یمکن الوصول لها ایضا من Class uai GMA‏ المشتق اضافة تلو صول نها من Cale yaad JUS‏ 
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6 العناصر الاساسية فى ال OOP‏ 


جمیع لغات البر مجة التي تطبق مبادئ ال OOP‏ لا بد ان تتعر ض للنقاط الثلاث التالية: 


Encapsulation 1 
Inheritance 2 
Polymorphism .3 


Encapsulation .1 .6 


يقصد بال Encapsulation‏ هو clas!‏ و ضم البیانات والأكواد المختلفة واظهارها فى النهاية 
للمستخدم على شكل cu » Black Box‏ ستجد في النهاية ate‏ باسم PrintReport‏ » في الواقع 


لاا يهمت ما هو الکود المو جود داخلها » Com‏ يكفيت استد عاءها لتعمل لديك دالة طباعه التقارير. 


INTE LEM‏ نضا من هذه الخاصية في حالة العمل الجماعي على المشرو ع ۰ في الحالة العمل باسلوب 
۵۵ ستجد جمیع الکود في مکان واحد . اما مع ال Encapsulation‏ في ال OOP‏ فسیکون 
كل جزء من العمل مغلقا على نفسه ویتم التواصل agin‏ البعض عن طریق Objects‏ مختلفة › 


وهذا ما پساهم في تسهیل تر کیب العمل » تسهیل اکتشاف الأخطاء. 


Inheritance .2 6 


أو الوراثة 2 ویقصد بها عمل نسخة جديدة من CLASS AXAM‏ تحتوي على نفس خصائصه 
من اجل مرها أو تعديل تعض الخضاتص > لتت ركن مكلذ أن ia odd‏ 1888© (سارة) بختهی 
غلى اسم السارة و خاوية. صتعهنا ما 
والآن نريد plan‏ بعمل فئة Class‏ للسيارات ال BMW‏ مثلاً » في هذه الحالة من الخطأ ان نقوم 
بعمل Class aia‏ منفصل لها « Lists‏ نستطيع اشتقاق Class aia‏ جديد من الفئة Class‏ 
المسمى Car‏ مع اضافة خاصية 1SSport‏ للفئة Class‏ المسماه BMW‏ الهدف من ذلك اننا 
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سنجد خصائص مشتر که نين CAL!‏ و ال Las ۰ BMW‏ سنضطر Legs‏ لاضافة فة GMC ji‏ والدي 
سيحتوي بدوره على OLY‏ مشتر که. 

السبب الآخر لو قمنا ياضافة عنصر جديد countofdoors dis‏ لكل السیارات ۰ فهل سنقوم 
بالتعدیل في جمیع Glial‏ 0 في حالة قمنا بعمل اشتقاق من Lola Car aia‏ نستطيع التعدیل فيه 
فقط لتطبيق التعديلات. 


ربما لا تظهر الأهمية في الفئات الصغيرة ولكن تستطيع تخيل حجم الفائدة في حالة وجود كم 


كبير من البيانات. 


يتم تعريف العلاقة Inheritance‏ ياسم 3 ca «is‏ ان Lat. BMW is a Car‏ کے All‏ و جود فة 
للاشکال و فنة آخری للدائرة مثلا فان Circle isa Shape‏ . 


هناك نوع آخر من العلاقات بين ال Classes‏ وهي علاقة has a‏ و تسمی باسم Aggregation‏ في 
هذه الحالة تکون AAT‏ الثانية محتوية على Mie ada YI LATE‏ لو كان Lua‏ فثة من اجل عحلات 
السيارة Wheel puls‏ ستکون Car hasa Wheel‏ . 


0 د. Polymorphism‏ 
المبداً الآخير من مبادئ OOP‏ هو السماح بكتابة 448 بدوالها بدون أي Amplementation‏ 


والسبب هو اجبار اي مستخدم يقوم باشتقاق الفئة بعمل implementation‏ لهذه الدوال يما يضمن 


تشابه الاسماء . ابسط مثال على ذلك Class aa‏ ل Shape‏ » حيث يمكننا تعريفه بالشکل التالي: 


class Shape 


{ 


public void Draw() 


{ 
} 
public void GetSize() 
1 
} 
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VB.NET 


Class Shape 
Public Sub Draw () 


End sub 
Public Sub GetSize() 


End Sub 
End Class 





في هذه الحالة یعرف ال Class‏ باسم Abstract Class‏ توفر CH‏ و Gas VB.net‏ مبدا ال 

PELAA ($2419 Interface‏ ال Abstract Class‏ و لکن مع فروقات سنتعرف علیها في حینها. 

في الفئة السابق فان کل فئة (داثرة ۰ مربع » مثلث) سیتم اشتقاقه من هذا ALAN‏ سیکون مجبرا 
على كتابة اکواد الر سم و حساب المساحة لكل منهم . 

يمكن عمل ذلك بطريقة آخری عبر ال OverRidding‏ ولکن مع الاختلاف في احتمالية و جود 

.Default Implementation 


Encapsulation . / 


يهدف ies‏ ال Encapsulation‏ والذي سبق شرحه باختصار إلى clad!‏ التفاصيل الداخلية 
TE‏ 418 عن اعين باقی المبرمجين . باختصار شديد X‏ ض نظام محاسبى يتضمن نظام لادارة 
المخازن . و آخر للصيانة » وثالث من اجل المبیعات. 


في هذه الحالة بدعوك مبداً ال Encapsulation‏ لیکون لكل واحد من هذه النظم عدد محدد من 
الدوال للدخول والخروج من هذا النظام والتي یمکن تلنظم الثلاثة التواصل من خلالها » فمثلاً في 
نظکام المبیعات تجد (اضافة عملية مبیعات) ( اضافة مشتریات ( ( خصم ) ... الخ في مجموعة 
E‏ جدا من الدوال. 

طبعا لو لاحظت ان عمليهة fico‏ اضافه عملية مبیعات تتطلب طابوراً من الأوامر » یتضمن فتح قاعدة 
البیانات والتأحد من ان البیانات المدخلة Ax‏ والتأحكد من و جود الكمية ومن ثم تخزین 
الناتجح في قاعدة البیانات » تم تجمیعها في النهاية على شکل آمر واحد یقوم ز میلک الآخر الذي 


sod dius Last ئی كل هذه‎ i-us ندال‎ dabis تست هی‎ eg نسو فا‎ dd 
s ۰ يقوم ببرمجة واج م ! بدلا من الغوص في‎ 
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كما لاحظت » يفيد هذا الموضوع الأشخاص التي تعمل في مجموعات اولاً ۰ حيث لن اکون 
مضطرا لفهم كودك بالكامل ويكفيني ان اعرف كيف اتعامل معڪ ۰ كما ان الكود کون eure‏ 
على شكل هرم حيث کل أمر يستتبعه مجموعة من الأوامر . لكن سيكون زميلك المبرمج قادرا 
فقط للوصول إلى رأس الهرم وهو ما يقلل كثيراً من الأخطاء » كما يحمي متغیر اتک الخاصة 
من العبث بها عن طريق الخطأ من المبرمجين الآخرين. 

هذا المفهوم الذي تحاول ان توصله لكت كل لغات برمجة (OOP‏ ولتطبيق هذا المفهوم هناك 
العديد من النقاط التي سنتطرق لها في هذا الدرس. 

قبل ان تواصل . اول نقطة لا بد ان تضعها في ذهنک انك مبرمج وهناك مبرمج آخر هو 
wes‏ مین قفعتی "ماد انك تقو as, Begs‏ وگو NEEDLE‏ المع باستكداء .هل اقا 


كجزء من المشر و ع. 


/. 1. استخدام دوال public‏ للوصول إلى متغيرات private‏ 


لنفترض المثال التالي بخصوص ال Person‏ الذي قمنا بانشاءه Bae‏ مرات على مستوى 
اتدروس اتسائقة:: 


class Person 


{ 


public int Age; 


Class Person 


Public Age As Integer 





End Class 
في الفریق الخاص بادخال بعض البیانات بشر - وجل من لا يسهو - قام بکتابة‎ ja jell زمیلک‎ OF 9 


الجملة التالية: 


CH 


Person Ahmed = new Person(); 
Ahmed.Age = 999999999999; 
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VB.NET 


Dim Ahmed As New Person() 
Ahmed.Age = 999999999999 





ولو ان السهو في رقم بهذا الحجم يعد شبه مستحیل © LUST‏ قد نتعرض لهده المشكلة في 
اشیاء اقرب للواقع « وابسط من ذلك لو انه یقوم بقراءة القیمه من المستخدم لیر سلها لک 


مباشرة » وفی و جود مستخدم - غلس D-‏ فان مثل هذه المدخلات تعد آمرا طبیعیا. 


طعا هذا المدخل سسب الدمار العاجل نلفثة الذي قمت بعملها » كما ان زمیلک مبرمح 
شاشات الادخال ریما لن يكلف نفسه clic‏ يرمجة امر التحقق من الادخال . لذا تأتي النصيحة 
الدائمة » امنع متغیراتک من الظهور لمستخدمها - المبرمج الآخر - وضع Yas‏ منها دوال لقراءتها 
او الكتابة الیها بالشکل التالي: 


class person 
{ 
private int Age; 
public string SetAge(int x) 
{ 
im tc 2 IOC TJ 36 9 1) 
return "you can't edit age like that"; 


Age = x; 
return "done"; 


) 
public int GetAge() 
{ 


return Age; 


} 
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VB.NET 


Class person 
Private Age As Integer 


Public Function SetAge(ByVal x As Integer) As String 
If x > 100 OrElse x > 1 Then 
Return "you can't edit age like that" 
End If 
Aqe — X 
Return "done" 
End Function 


Public Function GetAge() As Integer 
Return Age 
End Function 
End Class 





طبعا تسمية المتغیرات باسم X‏ هو خطا كما اتفقنا سابقا Set Als.‏ ينبغي ان تأخن الشکل التالی 


مغلا : 


public string SetAge(int Age) 
{ 
if (Age > 100 || Age < 1) 
return "you can't edit age like that"; 


this.Age = Age; 
return "done"; 


Public Function SetAge(ByVal Age As Integer) As String 
If Age > 100 OrElse Age > 1 Then 
Return "you can't edit age like that" 
End If 


Me.Age = Age 
Return "done" 
End Function 





و ذلک Lacu‏ تعلمنا من خصانص rhis‏ أو Me‏ فى الدرس السایق... 
ریما يبدو لک الأمر مملا او طویلا . لکنه مثل هذه الأمور في المشاریع الجدية تعد نقاطا حيوية 


لا يمكن الاستغناء عنها لإنها قد تتسبب في سقوط للمشرو p‏ يكلف عدة ملایین بسبب خطأ بسیط. 


ملا حظة 
الداله Get Age‏ یطلق pul lade‏ ۲۳ اما الدالة SetAge‏ فتسمى Mutator pul‏ 
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7 ارسال القیم کجزء من ال Constructor‏ 


طريقة آخری یمکنک استخدامها كبديل او مع الطريقة السابقة ۰ وهي اتاحة الفرصة 
للمستخدم لتمریر بارمیترات قيم المتغیرات ضمن المشید Constructor‏ فى الفثئات الکبیر 8 
سیکون لزاما علیک استخدام الطريقة الأولى إلى جانب هذه الطريقة حيث انك لن تتصور 


المستخدم یقوم بتمریر قیم کل المتغیرات لحظة انشاء Object‏ من ال Class‏ 


مثال هذه الطر بقة: 


class Person 
{ 
private int Age; 
public Person(int Age) 
{ 
if (Age > 100 || Age < 1) 
return "you can't edit age like that"; 


this.Age = Age; 
return "done"; 


VB.NET 


Class Person 


Private Age As Integer 
Public Sub New(ByVal Age As Integer) 


If Age > 100 OrElse Age < 1 Then 
Return "you can't edit age like that" 
End If 


Me .Age = Age 
Return "done" 
End Sub 
End Class 
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Type Property استخدام ال‎ .3 7 


ینفس الطريقة السايقة 6 ولكن يطريقة اخری واعتمادا على تحویل المتغیر إلى خاصية لكل 
منها دالتان Set‏ و Get‏ يتم كتابة ذلك بالشكل التالي: 


class Person 
{ 
public int Age 
{ 
get { return Age; } 
set 


{ 


if (! (value > 100 || value > 1)) 
Age = value; 


Class Person 
Public Property Age() As Integer 
GET 
Return Age 
End Get 
Set(ByVal value As Integer) 
If Not (value » 100 OrElse value « 1) Then 
Age = value 
End If 
End Set 
End Property 
bud Class 





والان یمکنک الوصول المباشر إلى AGS‏ . ولکن قبل تطبیق اي شيء سیتم استدعاء SCT‏ ۰ وفي 
حالة طلب شيء سیتم الحصول عليه من GEE‏ » وهو ما يتيح لک التآكد من بیانات الادخال او 
عمل بعض العملیات على عملیات الاخراج. 

لعلک لاحظت Lat‏ أن Set‏ و Get‏ هما public‏ لان الخاصية (ولیس المتغیر في هذه الحالة) 
المسماه Age‏ هي public‏ ۰ ولکن منن 2.0 met‏ اصبح بامکانک التعدیل في معرف gt!‏ صول 
الخاص ب Set‏ او Get‏ على حدة c‏ بالشکل التالي مثلا: 
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public int Age 
{ 


get { return Age; } 
protected set { Age = value; } 


Public Property Age() As Integer 
Get 
Return Age 
End Get 
Protected Set (ByVal value As Integer) 
Age = value 
End Set 
End Property 


إذا كنت ترغب في عمل Read Only Property‏ فیمکنک AT 5I‏ الخاصية bei St‏ لو اردت العکس 





: Read Only Property) هذا المثال‎ Get فأزل الخاصية‎ Write Only Property تعمل‎ 


public int Age 
{ 

get { return Age; } 
) 


Public ReadOnly Property Age() As Integer 
Get 


Return Age 
End Get 
End Property 





Inheritance Ailjg ll 


ذكرنا في درس سایق ان OOP‏ لها ثلاث عناصر اساسية ۰ قمنا بشرح المفهوم الأول 
0 في دروس سابقة « والآن موعدنا مع ال Inheritance‏ . 
OF‏ سنبدا بعمل مثال نتابع dao‏ العمل ۰ لنفتر ض المثال السابق الذي شر حناه الخاص بالعر بة: 
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class Car 
{ 
private string carName; 
private int carModel; 
public Car(string carName, int carNumber) 


{ 


this.carNme = carName; 
this.carNumber = carNumber; 


) 

Punic Care) 

{ 
carName = "Unknown"; 
carNumber 


VB.NET 


Class Car 


Private carName As String 
Private carModel As Integer 
Public Sub New(ByVal carName As String, ByVal carNumber As Integer) 
Me. cCarNme = carName 
Me.carNumber = carNumber 
End Sub 
Public Sub New() 
carName = "Unknown" 
carNumber 
End Sub 


End Class 


سنبداآ بهذا المتال البسيط « ونتايع العمل على تطويره و تحسینه خلال مراحل هذا الدرس. 


۱5-2 العلاقة‎ casi 41.8 


كما ذكرنا في الدرس السابع عشر . فان العلاقة قد تکون 15-2 وقد تکون has-a‏ . سنحاول 





› الرئيسية‎ ALAN شرح النوع الأول من العلاقات والذي يعني ان الفثة المشتقة هو من نوع‎ OFF 


سنفتر ض سيارة BMW‏ 


class BMW ۰ Car 


{ 
} 
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VB.NET 


Class BMW 


Inherits Car 
End Class 
ونفس‎ Car eI يحتوي على نفس خصائص الفئة‎ BMW البنت‎ ALAM هكذا نستطیع ان نقول ان‎ 
فقط . ولکن لنفترض اننا في الفئة الابن نحاول الوصول المباشر إلى‎ public دواله وطرقه ال‎ 


الخاصية CarName‏ فلن نتمکن من Sots‏ هذا المثال یو صح هذه النقطه: 





CH 


BMW ahmedcar = new BMW(); 
ahmedcar.carName = "anyname"; 


VB.NET 


Dim ahmedcar As New BMW() 
ahmedcar.carName = "anyname" 


حتى لو cas exa Lied‏ بعض الدوال داخل الفئه المشنقه بحیث تستطيع ot)‏ صول إلى هذه الخاصیه › 


لنفتر ض اننا اعدنا صياغة BMW aiat‏ لیکون بالشکل التالي: 





class BMW: Car 
{ 


public void changeCarName (string value) 


{ 


carName = value; 


} 


VB.NET 


Class BMW 
Inherits Car 
Public Sub changeCarName (ByVal value As String) 
carName = value 
End Sub 
End Class 


للاسف لن یکون هذا صحیحا تماما ۰ حيث انك بالرجوع إلى درس معرفات الو صول ستکشتف ان 





معرف الو صول private‏ لا يمكن الو صول له من الفئة المشتقةه. من اجل هذا نستخدم pre‏ ف 
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protected J gue gll‏ حيث انه 4c‏ ال private‏ في كونه لا يمكن gt!‏ صول المباشر له من 
خلال ال object‏ > لکنه في المقایل يمكن الوصول !4 من داخل الفتة المشتقه . لو افترضنا 
Car Axa Jis‏ بالشکل التالي 


Class Car 


{ 


protected string carName; 
protected int carModel; 


Glass Car 
Protected carName As String 
Protected carModel As Integer 
End Claas 


فى هذه الحالة یمکننا تعریف دالة داخل الفئة المشتقة BMW‏ تقوم بقراءة هذه المتغیرات ۰ لذا 


سوف یکون الکود التالي صحیحا: 





class BMW: Car 
{ 


public void changeCarName (string value) 


{ 


carName = value; 


} 


VB.NET 


Class BMW 
Inherits Car 


Public Sub changeCarName (ByVal value As String) 
carName = value 
End Sub 
End Class 
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NotInheritable - sealed المحجوزة‎ Agl4ll . 68 


يعني استخدام هذه الكلمة ان هذا الفثة M‏ یمکن الاشتقاق منه › يتم ذلك بالشکل التالي: 


Notinheritable Class Car 


End Class 


C# في‎ sealed تقابل‎ NotInheritable 7gl4ll 





Ailjgll .3 .8‏ المتعددة 


لا توفر dat‏ السي شارب او ال fore VB.net‏ الوراثة المتعددة 2 في حين تطبقه فقط 
(managed c++‏ معنی كلمة الوراثة المتعددة ان بامکان قثة ما ان تشتق من اكثر من فئة › 
لنفترض Low‏ فئة شاحنة وفئة سيارة » في حالة دعم لغة ما للوراثة المتعددة فاننا نستطیع عمل 
نوع جدید يحتوي على خصائص الشاحنه والسيارة العادية ۰ ولکن هذا ما Y‏ توفره كل من السي 


شارب او ال VB.net‏ . 


و کبدیل لذلك ؛ تقدم اللغتان دعم لعمل Implementation‏ لاكثر من interface‏ و هو 


ما سنتعرف عليه حینما نصل إلى هذا الحز ء. 


Lei‏ لماذا لم تقدم مایکر وسوفت دعم الوراثة المتعددة في CH‏ و VB.net‏ ۰ إليك هذا الر ابط: 
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رابط $9 
“م 25. 04/03/0 6/20 2101۱1۱۷ /230] ۲۲۱/05۱2۲0 ۲۱۰00 01005۰۳۱90 //۰ ۱۲۲۵ 


5 4. التعدیل فى الفنات المسنَقةه 


كما رأينا في الدروس السايقة . Lise:‏ التعدیل مباشرءة على خصائص و طرق و آحدات 
ودوال aal‏ الجديدة » في المثال السابق قمنا باضافه داله تسمح لنا بتغيير الاسم » یمکننا اضافة 
خاصية جديدة BMW ialt‏ تحتوي على عدد أجهزة التلفزيون داخل السيارة كميزة اضافية فى 


السيارات من نوع (BMW‏ وهكذا... 


یمکننا عمل 4 آخری لعرية فيراري ۰ فى هذه الحالة Loses‏ اضافة src‏ الفتحات الجانبية 
للمحرك . لكن لو احتجنا في مرحله الى تعريف خاصية maxSpeed‏ لجميع السيارات فيكفى 
اشافتها کے الففة الاساسة CREE‏ :وستحهدها موحودة LAE‏ كى becas pa OU‏ 


من هنا نستطيع ان نلاحظ ان واحدة من الفوائد الرئيسية لعملية الوراثة هي وضع قاعدة عامة 
للعناصر المتشابهة ۰ وعمل نسخ لاضافة نقاط الاختلاف فقط بدلا من اعادة تكرار کل منها Bae‏ 
مرات » ربما لن تجد الفرق كبيراً في المثال السابق حيث اننا نعمل مع 3 او 4 خصائص فقط › 
ولکن في مثال حقيقي مع sic‏ اوامر للتعامل مع المستخدم وللحفظ في قاعدة البيانات والطباعة 


والعرض والعمليات الحسابية ستستطيع ان تدرك الفارق بين استخدام مفهوم الوراثة وعدمه. 


8. 5. العلاقة من نوع has-a‏ 


كما اوضحنا في اول درسنا فهذا هو النوع الثاني من العلاقات بين الفئات المختلفة هذا 


النوع يعني ان الفئة تحتوي على فئة أخرى › لو افترضنا مثال فئة العجلات بالشكل التالي: 


class. Tires 


{ 


int TiresType; 
ine ILO E 
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Class Tires 


Private TiresType As Integer 
Private TiresSize As Integer 
End Class 





نعرف یقینا ان الاطارات ليست من نوع سيارة Tire is nota Car‏ و لکنها جزء من السیارة Car‏ 


: بالشکل التالی‎ 3 Lou A38 لذا یمکننا تعریف‎ chasa Tire 


Class Car 


{ 


Tires carTires = new Tires(); 


} 


VB.NET 


Class Car 
Private carTires As New Tires )( 
End Class 


لا تنس ان بامکانك تعریفها ک protected gl private‏ وعمل خاصية لها من Jal‏ القراءة 
والکنابم إليها 





Casting التحویلات‎ .6 5 


یقصد بال Casting‏ عموما هو التحویل من نوع إلى آخر ۰ تم شرح المفهوم العام له 
وانواعه في درس سابق . 
والآن سنحاول تطبیق نفس المفاهیم على ال (Classes‏ الطر ads‏ الأولى للتحویل هي استخدام 
۳ العادية » متلا لو Lied‏ بتعریف سيارة :BMIW‏ 


CH 


BMW ahmedCar = new BMW(); 
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VB.NET ۱ ee 





Dim ahmedCar As New BMW() 


وقمنا بارسال المتغیر إلى دالة تقوم باستقبال BMW‏ فسوف تعمل بصورة صحيحة » ایضا لو قمنا 
بارسالها إلى دالة تستقبل Car‏ فسیکون هذا صحیحا OF‏ كل BMW‏ هي في الحقيقة Car‏ « بینما 


العملية العكسيةه ليست Au‏ . 
النقطة الثانية لو BMW way prs Lied‏ بالصورة التالیه: 


ڪو د | CH‏ 


Car ahmedCar = new BMW(); 


VB.NET ۱ Eye 


Dim ahmedCar As Car = New BMW() 


2 


هذا الموضوع صحیح Wad‏ وهو ما یدعی باسم implicit cast‏ » والآن يمكن ارسال المتغیر مباشرة 
إلى تلك الدالة التي تستقبل Car‏ 





لنفترض مثالا آخر قمنا aud‏ بتعریف BMW‏ بالشکل التالی: 


CH | د‎ — 


Object ahmedCar = new BMW(); 


VB.NET ۱ em 


Dim ahmedCar As Object = New BMW() 





هذا صحیح OM Las!‏ کل فئة هو La Object‏ لکن لو قمنا بارسال المتغیر إلى الدالة التي 
تستقبل Car‏ فسوف تظهر رسالة خطا › لذا نقوم بعمل CAST‏ بأحد الاشکال التالية: 


CH 


functionname ((Car)ahmedCar); 
functionname ( (BMW) ahmedCar); 
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VB.NET 


functionname (DirectCast (ahmedCar, Car) ) 
functionname (DirectCast (ahmedCar, BMW) ) 





is المحجوزة‎ Agl^ll .7 .8 


تقوم هذه الكلمة باختبار فيما إذا كان الطرف الاول هو من الطرف الثاني › مثال 


(ahmedCar is BMW) 


If TypeOf ahmedCar Is BMW Then 


Enea If 





تفيدك هذه الكلمة فى حالة وجود عدة متغيرات من عدة انوع مشكقه من نفس Acad)‏ ( ونرید ان 


نعرف فيما إذا كانت من نوع BMW‏ او فيراري مثلا. 
Visual Studio Class Diagram .8 .8‏ 


یوفر لک الفیجوال ستودیو ابتداء من الاصدار 2005 3141 pest‏ ال Class Diagram‏ . هذا 


مثال علیها: 
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Fa WebSite lassDesrprer - Microsoft Visual ما‎ 
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Visual Studio Class Designer .1 .8 3 5 & aM 


یمکنک اضافتها من new -> class diagram‏ ۰ ومن ثم العمل علیها مباشرة »او عرض الفتات التي 
لديك ۰ يمكنت انشاء العلاقات المختلفه فى هذا الو ضع . 


9. ال Polymorphism‏ 
تعرفنا في درس سابق على معنی ال polymorphism‏ بشکل ale‏ الآن سنتعرف عليه بصورة أكثر 


التعریف الماضی والذي یسمح لک بتعریف Class‏ بدون اي implementation‏ ۰ یوفر لک Las‏ 
كتابة كود ولکن في المقابل یسمح لک بتغییر implementation]!‏ الخاص بالدالة بين الفثة 


والأخرى « وهو ما یعرف باسم .Overriding‏ 
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ad‏ ضص مثال السيارة الخاص ينا . لو Lice a)‏ و جود الداله التالية الخاصه بحساب المساقه 


المتبقية للسيارة قبل ان ينفد البنزین » وحيث ان السيارة (Sis)‏ تصرف جالونا لكل 10 کیلومتر. 


public int calc(int tuel) 
{ 


return tuel ^ 10; 


Public Function calc(ByVal fuel As Integer) As Integer 
Return fuel * 10 
End Function 





و لکن بعد عملنا للسیارة BMW‏ اكتشفنا ان هذه السيارة M‏ تسیر على نفس القاعدة .|3 انها تصرف 
جالوناً لكل 5 کیلومترات فقط . في هذه الحالة نحن بحاجة إلى اعادة تعریف الدالة CALC‏ في 
Aia‏ المشتقة . هذا هو ما یعرف باسم اعادة القیادة Overriding‏ وهو احد مبادئ ال 
۲ يتم ذلك عن طریق تعریف الدالة الاساسية في ال base class‏ من نوع 


virtual‏ بالشکل التالی: 


public virtual int calc(int fuel) 


{ 


returna ruel 5 10; 


} 


VB.NET 


Public Overridable Function calc(ByVal fuel As Integer) As Integer 
Return fuel * 10 
End Function 


virtualgt‏ او ال oOverriddeable‏ تعني ان هذه الدالة يمكن اعادة تعریفها في الفئة 





المشتقة » كما يمكن عدم تعریفها ایضا . لاعادة تعریفها نکتب الکود التالي في الفثة المشتقة : 


public override int calc(int fuel) 


{ 


return ruel ~ 5s 





} 
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Public Overloads Overrides Function calc(ByVal fuel As Integer) As Integer 


Return fuel * 5 


End Function 





ایضا یمکنک ترك ال implementation‏ فارغاً فى الفثة الرئيسية ومن ثم قم ببر مجتها فى الفثات 
الأبناء » تعرف الفئة الفار غ من ال Abstract class awh implementation‏ وهو غير interfaceJ!‏ 


الذي سنتعرف عليه فى مر حلة قادمة. 


Abstract ال‎ . 10 


فى الدرس السایق تعرفنا على معنی كلمة Abstract class‏ . وعرفنا انها مجرد Aa‏ عادية 
بدون implementation‏ لکن لكى نجبر انفسنا على عمل نسخة منه قبل استخدامه ۰ نستخدم 


الکلمة المحجوزة abstract‏ لتعريفة بالشکل التالي: 


abstract partial class Car 


{ 


} 


VB.NET | noes 


Partial MustInherit Class Car 
End Class 


الكلمة المحجوزة Must Inherit‏ في Vb.net‏ هي مناظر abstract AglS‏ في CH‏ 
في هذه الحالة سوف یعطینا هذا التعریف خطأ : 





CH 


Car ahmedCar = new Car(); 
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VB.NET 





Dim ahmedCar As Car-new Car() 


Abstract Method 





ذکر نا في الدرس السابق ایضا اننا نقوم بتعریف الدوال virtual‏ لكل agai‏ يعمل overriding‏ 
لها في الفثة المشتقة لاحقا » وهذا ما یعطینا الحق في اعادة کتابة الکود الخاص بها او تجاهله 
لکن لو اردنا اجبار المبرمج على dale!‏ القيادة overriding‏ نقوم بذلک بتعریف ۱۱۵۲۳00 Abstract‏ 
بالشکل التالي: 

Cit 


PUDILO ADSLIASS INL. calco(int Tuel); 


VB.NET 





Public MustOverride Function calc (ByVal fuel As Integer) As Integer 
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Interfaces الواحهات‎ 


الباب التاسع الواجهات Interfaces‏ 





Interface ال‎ casi 1 


ال interface‏ هو abstract class‏ يحتوي على abstract methods and members‏ يمكن عمل 
نسخة die‏ باستخدام يمفهوم Ya implementation‏ من inheritance‏ » كما يتميز بامكانية عمل 
implement‏ لاكثر من interface‏ في المرة الواحدة وهو البديل عن مفهوم multiple‏ 


. inheritance 


یمکن تعریف interface‏ بالشکل التالی Mis‏ 


public interface ICar 


{ 


int carMaxSpeed { get; set; } 
void AddItem(string Item); 


VB.NET 


Public Interface ICar 
Property carMaxSpeed() As Integer 
Sub AddItem (ByVal Item As String) 


End Interface 





Y‏ تنسی ان بامکانک اشتقاق interface‏ من آخر بالشکل التالی مثلا: 


public interface ICar : IDisposable 
{ 
int carMaxSpeed { get; set; } 
void AddItem(string Item); 


VB.NET 


Public Interface ICar 
Inherits IDisposable 
Property carMaxSpeed() As Integer 
Sub AddItem (ByVal Item As String) 


End Interface 
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ولعمل implements‏ لاي interface‏ نقوم بکتابة الکود التالی: 


public class BMW : 
{ 


} 


public Class BUNA + ICar; Trick 
{ 


} 


Public Class BMW 
Implements ICar 


End Class 


Public Class . 
Implements ICar, ITruck 


End Class 





الآن یمکنک اعادة کتابة الدوال المو جودة . اضافة دوال جديدة » ومن ثم استخدام الفثة كما قمنا 
بذلک قبلا. 

هذه بعض النقاط التی لا یمکنک عملها مع الواجهات 

- بداية » ال Interface‏ لا یمکن عمل اي Object‏ منه لذا فمتل هذه الجملة خاطئة: 


CH 


ICar x = new ICar(); 


VB.NET 


Dim x As New ICar() 


- لا یمکن تعریف متغير gale‏ فى ال Interface‏ لذا jis‏ هذه الجملة داخل ال Interface‏ خاطنة: 





CH 


Int number; 
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VB.NET 


Dim number as integer 


CH 


int x 1 set; get; } 


Private Property x() As Integer 
566 


End Get 
Set(ByVal value As Integer) 


End Set 
End Property 





- بالطبع لا یمکنک كتابة أي سطر كود داخل ال interface‏ 
- كما Y‏ يمكن عمل constructor‏ لل interface‏ 


Names Clashes 2 


احیانا ما یقوم Class‏ او Struct‏ ما بعمل implements‏ لاكثر من Les 59 ۰ Interface‏ 





يحدث مشاكل في تشابه الاسماء » لنفتر ض المثال التالي: 


public interface ICar 


{ 


void move (); 


} 


public interface ITruck 


{ 


void move (); 


} 
public class BMW i. IIfück, ICar 
{ 
} 
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VB.NET 


Public Interface ICar 
Sub move )( 

End Interface 

Public Interface ITruck 
Sub move () 


End Interface 

Public Class BMW 
Implements ITruck 
Implements ICar 


End Class 





ريما لن تجد مشکلة فيما of‏ قمت يعمل implementation‏ تلدالة () move‏ فى الفثة الجديدة 
BMW‏ : 


Public: clase BMW : IIruck, ICar 
{ 


void move )( 


{ 
// do something. 


} 


VB.NET 


Public Class BMW 
Implements ITruck 
Implements ICar 


Private Sub move () 
۲ do something. 
End Sub 
End Class 





ولکن ماذا لو آردت عمل move() awu implementation‏ من Car‏ واخری للدالة )( move‏ 
من TUCK‏ ۰ نقوم بذلك بالشکل التالی: 
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public class BMW : ITIrück, ICar 
{ 


void ICar.move() 


{ 


// do something. 


) 
void ITruck.move() 
{ 
// do something. 
) 


VB.NET 


Public Class BMW 
Implements ITruck 
Implements ICar 
Private Sub move() Implements ICar.move 
۲ do something. 
Ena Sub 
Private Sub move() Implements ITruck.move 
۲ do something. 
End Sub 
End Class 


ويعد عمل Object‏ من الفئة (BMW‏ يمكن تحدید اي واحدة من الدالئین يتم استدعاءها بالشکل 





BMW ahmedCar-new BMW(); 
ICar temp= (ICar)ahmedCar; 
temp.move(); 


VB.NET 


Dim ahmedCar As New BMW() 
Dim temp As ICar = DirectCast(ahmedCar, ICar) 
temp.move() 
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IEnumerable Interface 





نواصل OI‏ دروسنا مع ال interfaces‏ ۰ سنتعرض OY!‏ لثلاث دروس قادمة عن كيفية 
عمل aia‏ أو implement Joa: aga: Class‏ لل interface‏ معین» فى هذا الدرس سنبداً ب 


6 المسمی LEnumerable‏ وما هی الفائدة المر جوة وراء ذلک. 


ملا حظة 
gayl‏ منك أن ترکز Inia‏ في هذا الدرس . فهذا واحد من الدروس التي ستلاحقنا كثيراً أثناء تطبيق مبادئ 


LINQ 





c‏ ض ان لدينا 449 مصفو 49 آسماء 3 نحنوي على suc‏ بیانات بالشکل التالي 
CH‏ 


string[] users = { "Ahmed", "Mohammed" }; 


VB.NET 


Dim users As String() = {"Ahmed", "Mohammed" } 


foreach (string us in users) 


{ 


Console.WriteLine (us); 


} 


VB.NET 


For Each us As String In users 
Console.WriteLine (us) 
Next 





هذا لو كنا نعتمد على array‏ تجد اننا نستخدم دالة للدوران على كافة العناصر 6 سنقوم بتوسیع 


المتال نوعا لیکون ذلك بالاعتماد على فئة » سنفتر ض فئة gol!‏ ظفین بالشکل التالي: 
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public class employee 


{ 


int emp number; 
string emp name; 


VB.NET 


Public Class employee 
Private emp number As Integer 
Private emp name As String 
End Class 


و لیکن لديئنا فته آخری يحنوي على بيانات المستخدمين ۰ حيث ان المستخدم هو عبارة عن 
مجموعة من الموظفين بالشكل التالي مثلا : 





public class users 
1 
employee[] emp new employee[3]; 
users() 
{ 
emp[0] = employee(10, "Ahmed"); 
emp[1] = employee(20, "Khaled"); 
emp[2] = employee(30, "Ali"); 


VB.NET 


Public Class users 
Private emp As employee() = New employee(2) {} 
Private Sub New() 
emp(0) = New employee(10, "Ahmed") 
emp(1) = New employee(20, "Khaled") 


emp (2) New employee(30, "Ali") 
End Sub 
End Class 





یمکننا استعراض السیارات ایضا باستخدام for each‏ ایضا باستخدام جملة کالتالي: 


foreach (employee e in emp) 


{ 


} 
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For Each e As employee In emp 


Next 
IEnumerablegJ! مع كل 100۳0 سیتم طباعة عنصر معین. هذا هو المبدأ الذي سنسعی الیه مع‎ 
:IEnumerable المسمی‎ interface H الشکل الاساسي‎ 





public interface IEnumerable 


{ 


IEnumerator GetEnumerator(); 


} 


VB.NET 


Public Interface IEnumerable 
Function GetEnumerator() As IEnumerator 
End Interface 


Le 9‏ تری في المثال السابق . یقوم بتعریف واجهة interface‏ من نوع lEnumerator‏ بالشکل 
التالی 


مه 





public interface IEnumerator 
{ 
bool MoveNext(); 
object Current 1 get; ) 
void Reset(); 


VB.NET 


Public Interface IEnumerator 
Function MoveNext() As Boolean 
ReadOnly Property Current() As Object 
Sub Reset () 

End Interface 


لذا لو كنا نرغب في ان نجعل 4 USCIS‏ تقوم يعمل implements‏ لهده الو اجهة interface‏ 





سنضطر تعمل GetEnumerator() aa implement‏ » سیکون ذلك بالشکل التالي: 
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public class users : IEnumerable 
{ 
employee[] emp = new employee[4]; 
users () 
{ 
= new employee 
= new employee 


"Ahmed") ; 


(10 
(20 
= new employee(30, "Ali"); 
= new employee (40 


Sami") ; 


} 


public IEnumerator GetEnumerator () 


{ 


return emp.GetEnumerator(); 


j 


VB.NET 


Public Class users 
Implements IEnumerable 


"Khaled"); 


Private emp As employee() = New employee(3) {} 


Private Sub New() 
= New employee (10, "Ahmed") 
New employee(20, "Khaled") 
New employee(30, "Ali") 
= New employee(40, "Sami") 
Ena sub 


Public Function GetEnumerator() As IEnumerator 


Return emp.GetEnumerator() 
End Function 
End Class 


IEnumerator i = emp.GetEnumerator(); 
1.MoveNext (); 
employee myCar = (employee)i.Current; 


VB.NET 


Dim i As IEnumerator = emp.GetEnumerator )( 
1.MoveNext )( 


Dim myCar As employee = DirectCast (i.Current, 
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employee) 


الباب الناسع 


یمکننا alan‏ بذلک یدویا ایضا بالشکل التالی: 





الباب التاسع الواجهات Interfaces‏ 


ماذا تنستفيد من هذه الطر ٩ Ads‏ 

في الواقع فأي مبرمج لقواعد البیانات یستطیع ان يستنتج العلاقة بسهو لة ۰ إن ما نحن 
بصدده هنا هو مثال عن فئة تحتوي على مجموعة من البیانات اشبه بقاعدة بیانات ۰ واصبح 
باستطاعنا OY!‏ القراءة منها والتنقل Lg‏ باستخدام .moveNext‏ 


- استخدام 16101 ۷ 


بدلا من الکود السابق قم بكتابة الکود التالي: 


public IEnumerator GetEnumerator )( 


{ 


yield return emplrol; 


yield return emplll; 
yield rSfetura emprzl; 
yield break; 





في هذه الحالة ومع اول استدعاء للدالة سیتم اعادة القيمة الاو لی ۰ ثم الثانية فالثالثة وهكذا حتی 
نصل الی. yield break‏ 


نستعرف على واحدة من آهم الاستخدامات الفعلية عندما نصل إلى LINQ‏ . وحتی ذلك الحین 


آتمنی Yi‏ تغفل عينت عن هذه الواجهة . 


ICloneablie Interface 4 


عملية ال Clone‏ یقصد بها عملية النسخ للکائن . بمعنی اننا عندما نکتب الکود التالي: 


VB.NET 


Dim x As Integer = 5 
Dim y As Integer = x 
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فاننا فعلياً نقوم بنقل قيمة × إلى Y‏ ۰ ولکن في Alle‏ تعاملنا مع الفئات بالشکل التالی: 


CH 


Car x = new Car("BMW"); 
Car ý = x; 


VB.NET 


Dim x As New Car("BMW") 
Dim y As Car = x 





في الواقع ان قيمه × لا تنتقل إلى Y‏ › بل إن Y‏ یصبح يشير إلى المکان الذي فيه قيمة × › و لدا 
قان اي تعدیل في قيمة X‏ سیعدل قيمة Y‏ والعکس بالعکس. 

من هنا كانت عملية ال Clone‏ من Jol‏ عمل نسخة جديدة في القيمة و وضعها في المتغیر الآخر . 
الواجهة 1010۳651916 التي تحتوي على الدالة «Clone‏ يمكن استخدامها لهذا الغرض» حيث 
یمکننا کتابة كود کالتالي: 


public object Clone() 
{ 


return new Car(this.carName) ; 


} 


VB.NET 


Public Function Clone() As Object 
Return New Car (Me.carName) 
End Function 





الآن اصبح بامکانک عمل نسخة جديدة باستخدام Clone‏ بالشکل التالي: 


CH 


Car x = new Car("BMW"); 
Car y = cua x.cloneq 


VB.NET 


Dim x As New Car("BMW") 
Dim y As car = DirectCast(x.Clone(), Car) 
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IComparable Interface .5 


كما هو al g‏ من الاسم ۰ بستخدم هدا ال interface‏ للمقارنه « ولدا من الطبيعي ان يكون شکل 


هدا ال interface‏ بالشکل التالی: 


public interface IComparable 


{ 


int CompareTo(object 0); 


} 


VB.NET 


Public Interface IComparable 
Function CompareTo(ByVal o As Object) As Integer 
End Interface 


یمکنک ملاحظة ان الدالة تعيد قيمة رقمية؛ فعلیا هي تعید في المعتاد القیم 0 في حالة التساوي ‏ 





القيمة 1 في حالة کون الطرف الأول ابر . و -1 في Atle‏ کون الطرف الأول آصغر . 

lub‏ لا داعي من اعادة تذکيرك ol‏ الکائنین یکونان متساویان لیس لاعتبارات تساوي قیمهم 
الداخلية بل النقطة في agi lal‏ لنفس المکان في الذاكرة ۰ وهو ما لن نحتاجه » حيث اننا نحتاج 
لمقارنة فعلية . وهدا ما قمنا به من خلال الدالة 5 0111241 ۳. 

اما النقطة التي لدینا هنا فلسنا بحاجة لمعرفة هل يساوي هذا الکائن ذاك ام لا » بل نحن في حاجة 
إلى معرفه Legal‏ اكبر او اصغر . و لنفترض تاريخ صنع السیارة ضمن الفثه الخاصه بها. 

ببساطة كما قمنا في الدرس السابق ۰ سنجعل الفثة الخاصة بنا تطبق الفئة [Comparable‏ ثم 


نكتب بعض الاکواد في CompareTo Anal‏ لنفتر ض الشکل التالي مثلا: 


int IComparable.CompareTo(object obj) 
{ 

Car temp = (Car)obj; 

if (this.year > temp.year) 


return 1; 

if (this.year < temp.year) 
return —L; 

else 
return 0; 
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VB.NET 


Private Function CompareTo(ByVal obj As Object) As Integer Implements 
IComparable.CompareTo 
Dim temp As Car = DirectCast (obj, Car) 
If Me.year > temp.year Then 
Return 1 


End LI 
If Me.year « temp.year Then 
Beturnm =| 
Else 
Return O0 
End If 
ENC Function 





طبعاً لا داعي لتذكيرك بانک تستطیع اعادة -100 و 0 و 94 بدلاً من -1 و 0 و 1. لکن هذا 
لتسهیل المفهوم . الدالة تعمل بدلاله رقم سالب يعني اصغر . صفر يعني التساوي ورقم موجب 
يعني اكبر فقط دون ان یعنیها قیمه هذا الر قم الفعلیه. 
الدالة SOrt‏ 

لنفترض ان لدينا مصفوفة array‏ من الارقام myNumbers awh‏ فى هذه الحالة لو قمنا 
بكتابة الأمر التالي لكان الكود مفهوما: 


CH 


Array.Sort (myNumbers); 


VB.NET 


Array.Sort (myNumbers) 





ولکن لو كان لدینا مصفوفة من السیارات » وكتبنا هذا الکود لتر تیبها فان هذا بالتأكيد سیحدث 
لکن في حالة کون الفئة Car‏ تطبق ال .IComparable interface‏ ففي هذه الحالة سیمکنک 
استخدام هذا الدالة ببساطة لانها سوف تقوم بالمقارنة اعتمادا على دالة CompareTo‏ التي قمت 
انت ببرمجتها . ریما يكون هذا Luu‏ کافیا لتقوم بتطبیق هذا ال interface‏ و کتابة كود الدالة 
بدلاً من کتابة دالة باسم Check‏ مثلاً او اي اسم آخر للقيام بنفس المهمة . هذا lado‏ بالاضافة 


لتسهیل استخدام الفثة الخاصة بکل gg Là M‏ ضوحها لأي مبرمج آخر. 
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الباب العاشر الاخطاء و معالجتها 


سنتعرف فى در سنا هذا على elles WI‏ وحيفية اقتناصها و تفادیها ۰ Giles‏ رسائل الخطأ و اشهر 


الاخطاء وخلافه » ولكن قبل البداية نحتاج لان نو ضح أقسام slaa Yi‏ التي تحصل في اي برنامج: 


Syntax Errors 7ugaill الاخطاء‎ . 1 


هذا النوع من الاخطاء هو الاسهل . وقي Jie Advanced Programming Environments‏ 
«Visual Studio , NetBeans ... etc.‏ يتم اکتشاف هذه الأخطاء فوریا » مثال هذا الخطأ كتابة 


الجملة التالية: 


VB.NET | See 


LF x.Nome = somevaluc 


بالطبع ستجد رسالة lla‏ قبل التنفین تخبرك بأن الخاصية NOME‏ غير مو جودة مثل هذه الأخطاء 





هي الاسهل ویتم اکتشافها من خلال بيئة لغة البر مجة التي تعمل عليهاء و في Visual Studio .net‏ 


8 اصبحت رسائل الخطا Ancol,‏ للغاية ويمكن تفسیر ها بسهو له و حلها بهذه الطر Aas‏ . 


Logical Errors الأخطاء المنطقيةّ‎ . 2 


هذا النو ع من الأخطاء هو الأصعب» قعلی صعید كتاية الکو د ریما لا یو جد خطأ نحوي و لکنه خطا 


منطقى يظهر عند التئفید. ابسط مثال على هذا الخطأ هو كتابة ڪود کالتالی: 


VB.NET ۱ qe 





طبعا تعرف ان حدود النوع BYTE‏ اصغر من هذا الحد؛ و لکن في الاصدارات القديمة لم يكن هذا 


لیظهر خط Gus‏ إن الجملة مکتوية نحویا کما ترف . 
امتلة على هذا الخطأ اسناد قيمة object J‏ قبل عمل Dew‏ له .. الخ. 


لكن مع اصدارات فيجوال ستوديو الجديدة » اصبحت متل هذه الأخطاء نظهر مباشرة . بل ان هناك 
انواعا اصعب من ال Logic Errors‏ اصبح الفيجوال ستوديو قادر على اكتشافها على شكل 


.warnings 
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تن ٠ Warea‏ سنبدأ بتقسیم ال Logical Errors‏ و هي الأخطاء الأهم إلى ثلاثة آنواع اساسیة: 
User Error -‏ 


آخطاء تنتج من استخدام البرنامج . لو افتر ضنا المتال السایق ل Byte‏ نقوم فيه بتخزین عمر 
المستخدم 60 GSI‏ المستخدم قام بادخال رقم 10 الاف ۰ هذا الخطاً من المستخدم سیتسبب فى 
المشاکل لك فیما لو لم تكن قد اضفت شرط التأکد من عدم تجاوز العمر لحد معين» ایضا 


ادخال بیانات نصية في خانه العمر و خلافه تندر ج تحت اسم أخطاء المستخدم. 
Exceptions -‏ 


النوع الأشهر من الأخطاء ۰ محاو لة فتح ملف او قاعدة بیانات غير موجودة Mis‏ حيث لم يتم 
تحميلها بصورة صحيحة . محاو له قراءة بیانات من قاعدة البیانات فى حين انها تساو ي null‏ 
يدون استخدام nullable type‏ ۰ محاو At‏ الكتابة إلى ملف نصي ReadOnly‏ و خلافه من الأخطاء 


.۵ 3 المشهو‎ 
Bugs - 


اكثر الأخطاء شهرة . M‏ یمکن حصرها ولا عدها « وتوجد في جمیع البرامج Le:‏ فيهم نسخة 
الویندوز التي تستخدمها . في العادة لن يخلو برنامج منها و LUSI‏ نحاول تفادیها قدر المستطاع قد 
تحدث بسبب نسیان حذف متغیر او قراءة متفیر من قيمة موجودة اصلاً في الناکرة ونحن نظن 
انها قيمة فارغة ... الخ » هذه الأخطاء قد لا تظهر ل 099 من المستخدمین و لکنا تظهر لمستخدم 
واحد فقط . لذا في العادة تکون هناك عدة نسخ تجريبية من اي برنامج لمحاو A‏ معرفة اماکن 


امثال هذه الأخطاء و تعدیلها قبل plo‏ ح النسخة الر سمیة. 


في درسنا هذا سنر کز على النو ع الثاني من الأخطاء وهو الأهم c‏ النوع الأول ایضا سنحاول وضع 
استنثناءات من Jol‏ التأكد من اختيارات المستخدم و لکن جمل التحقق هى الآهم فى الحالة الأو لی 


اما الحالة التالنة فالتحربة المستمرة والمتایعة هی الو سيلة الأمثل تتقلیلها. 
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System.Exception Aidl .3‏ 
هي الفئة المختصة في عالم net‏ بالتعامل مع الأخطاء التي تحدث في النظام ۰ في الواقع فان أي 


خطأ پرسل تلنظام ثم يقوم النظام بارساله إلى ال CLR‏ والدي بدوره یخول 
System. Exception‏ تلتعامل مع هذا الخطا » محتویات هذه الفتة بالشکل التالي: 


public class Exception : 1۵۳۴12112101 ره‎ Exception 


{ 


77 Public constructors 

public Exception(string message, Exception innerException); 
public Exception(string message); 

public Exception(); 

// Methods 

public virtual Exception GetBaseException(); 

public virtual void GetObjectData(SerializationInfo info, 


StreamingContext context); 

// Properties 

public virtual IDrotionary. Data (OEE? | 

public virtual string HelpLbink { get; ser; | 
public System.Exception InnerException 1 get; } 
public virtual string Message { get; } 

public virtual string Source { get; set; } 
public virtual string StackTrace { get; } 
public MethodBase TargetSite { get; } 
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VB.NET 





Public Class Exception 


Implements ISerializable 

Inherits | Exception 

" Puplie constructors 

Public Sub New(ByVal message As String, ByVal innerException As Exception) 
End Sub 

Public Sub New(ByVal message As String) 

End Sub 

Public Sub New() 

End Sub 

' Methods 

Public Overridable Function GetBaseException() As Exception 

End Function 

Public Overridable Sub GetObjectData (ByVal info As SerializationInfo, ByVal 


context As StreamingContext) 


End Sub 
۲ Properties 
Public Overridable ReadOnly Property Data() As IDictionary 
Get 
End Get 
End Property 
Public Overridable Property HelpLink() As String 
Bet 
End Get 
Set(ByVal value As String) 
End Set 
End Property 
Public ReadOnly Property InnerException() As System.Exception 
Get 
End Get 
End Property 
Public Overridable ReadOnly Property Message() As String 
Get 
End Get 
End Property 
Public Overridable Property Source() As String 
GOL 
End Get 
Set(ByVal value As String) 
End Set 
End Property 
Public Overridable ReadOnly Property StackTrace() As String 
GEL 
End Get 
End Property 
Public BeadUnly Property Targetsrte() Ae MethodBase 
Ger 
End Get 
End Property 


End Class 
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سنحاو J‏ التعرف على الخصائص و الطرق الاساسية لهذه الفثة : 


الباب العاشر الأخطاء و معالجتها 





الجدول 10. 1. بعض خصائص الفئة Exception‏ 


Throwing Exceptions رمي الاستتناء‌ات‎ A 





خلال تنفید ك للبرنامج يمكن Of‏ یقوم البر نامح llaà&J ChrOoW Joa‏ ما مثل عدم 392-9 
ملف معین. سنتعلم كيفية قراء2 هذا الخطاً والتعامل dae‏ لکن تظل هناك حالة آخری ترغب انت 
فیها بعمل throw‏ للخطأ » لنفترض انك تقوم بعمل check‏ تتأكد من عدم و جود الملف ومن 


ثم تقوم بعرض رسالة خطأ في All»‏ عدم و جود الملف بالشکل التالي مثلا: 


(System. IO. File. Exists (Te: ۱۵۱6 زر‎ 


Console.WriteLine("there is no file"); 


If Not System.IO.File.Exists("c:Nahmed.txt") Then 
Console.WriteLine("there is no file") 
End lt 


لکنک ریما لم تقم باقتئااص ua‏ ڪون الملف للقراءة فقط . وترغب في 3552 قنص اخطاء 





موحدة c‏ أو CY‏ اعتبارات أخرى ترغب في عمل 1120177] للمبرمج مثلا لو كنت تبرمج فئة ليتم 
استخدامها . CY‏ من هذه الاعتبارات يمكن عمل CHOW‏ لخطأ بالشكل التالي: 
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(!System.IO.File.Exists("c:NNahmed.txt")) 


throw new Exception("there is no file"); 


VB.NET 


If Not System.IO.File.Exists("c:Nahmed.txt") Then 
Throw New Exception("there is no file") 
End IT 


هكذا تجد ان الفیجوال ستودیو ald‏ باظهار خطأ بالر سالة التي او ضحتها ۰ تستطیع لاحقا قراءة 
کائن الخطأ والتعامل معه كما تتعامل مع الخطأ الذي ينتج تلقائیا من الفیجوال بیسک. 


Catching Exceptions اقتناص الاخطاء‎ .5 


البلوك فى حالة وجود الخطاً دون ان یتسبب فى توقف البرنامج . بالشکل التالی مثلا: 





LIV 
{ 
x += 100; 
console.writeLine("no errror"); 
} 
catch 
{ 
console.writeLine ("some error!"); 


} 


VB.NET 


LT 

x += 100 

Console.WriteLine ("no errror") 
Catch 

Console.WriteLine("some error!") 
End Try 


في Atle‏ وجود خطأ في عملية الجمع السابقة فسیتم مباشرة الانتقال إلى Catch‏ ۰ فیما عدا ذلك 


سیواصل البرنامج دون المرور علیها › وفي كل الاحیان لن يتم ایقاف البرنامج. 
یمکننا ایضا عرض تفاصیل عن الخطأ الذي حدث باستخدام الخصائص السابقة 
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LIV 
1 
x += 100; 
console.writeLine("no errror"); 
) 
catch (Exception e) 


{ 


Console.WriteLine("Method: {0}", e.TargetSite); 
Console.WriteLine("Message: 10, e.Message); 
Console.WriteLine("Source: 10)", eG.S5ource); 


LEY 
x += 100 
Console.WriteLine("no errror") 

Catch e As Exception 
Console.WriteLine("Method: {0}", e.TargetSite) 
Console.WriteLine("Message: {0}", e.Message) 
Console.Writebine ("so0urce: 10)", &.Source) 

Eng Try 


لو كنا نعرف بعض الأخطاء التي يمكن ان تحدث. فیمکننا اختبارها وعرض الرسالة فيما عدا ذلك 
لنفترض المنال التالي في حالة كوننا نعرف أن الخطاً یمکن ان یکون بسبب تجاوز المجال 
۸۷ وفيما عدا ذلك سنظهر رسالة بخطاً tale‏ 





x += 100; 
console.writeLine("no errror");: 


} 


catch (OverflowException e0) 


{ 


Console.WriteLine ("value of x more than up bound"); 


} 


catch (Exception e) 


{ 


Console.WriteLine("Method: {0}", e.TargetSite); 
Console.WriteLine("Message: 10, e.Message); 
Console.WriteLine("Sourcses 10)", 86.5o0ufce); 
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VB.NET 


Iry 
x += 100 
Console.WriteLine("no errror") 
Catch e0 As OverflowException 


Console.WriteLine("value of x more than up bound") 
Catch e As Exception 
Console.WriteLine("Method: {0}", e.TargetSite) 
Console.WriteLine("Message: {0}", e.Message) 
Console.Writehine ("“Saurce:r ID)", e.S5oufce) 
End Try 





5 1. استخدام Finally‏ 
تستخدم للتنفین بعد نهاية البلو ك Cry - Catch‏ ویتم تنفيذها في حالة و جود خطأ او 
عد مه. à‏ فمثلا لو كنا نرغب في طباعة نص ما بغض Mail‏ عن حدوث dax‏ في | لمتغیر X‏ من عدمه 


نکتب الکو د التالی: 


LIV 

{ 
x += 100; 
console.writeLine("no errror"); 

) 

catch (Exception e) 

{ 
Console.WriteLine("Method: {0}", e.TargetSite); 
Console.WriteLine("Message: {0}", e.Message); 
Console.WriteLine("Source: 10)", &.5ource); 

) 

finally 

{ 
Console.WriteLine("somehing"); 


} 


VB.NET 


Try 
x += 100 
Console.WriteLine ("no errror") 
Catch e As Exception 
Console.WriteLine("Method: {0}", e.TargetSite) 
Console.WriteLine("Message: {0}", e.Message) 
Console .Writebine ("source: 1D)", @.Source) 
Finally 
Console.WriteLine("somehing") 
End Try 
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break استخدام‎ 2.5 


للخرو c‏ من الاستنثناء فى مرحله ما . يمكن استخدام break‏ أو Exit Try‏ بالنسبة للفیجوال 


ea 


we 


Target Site استخدام‎ .3 .5 


pagi‏ هذه الخاصية Olo glao‏ عديدة حول الفئة والدالة التی قامت يعمل diaz ChrOW‏ يمكن 


الاستفادة منها في عمل Debug‏ لمعر فة مکان حدوث الخطأ. 
5 4 استخدام HelpLink‏ 


تستطیع اقادة مستخدم الفتة أو المستخدم بها . عن طریق وضع لینک معین یمکنه الا ستفادة منه 


بالشکل التالي مثلا: 


m += 100; 
Console.WriteLine("no errror"); 


} 


catch (Exception e) 


{ 
e.HelpLink = "www.ahmedgamal-space.blogspot.com"; 


} 


VB.NET 


ity 
m += 100 


Console.WriteLine("no errror") 
Catch e As Exception 


e.HelpLink = "www.ahmedgamal-space.blogspot.com" 
End Try 
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6. عمل اخطاء mola‏ 

یمکنک تعریف فنة من النوع خطأ یمکنک استخدامها لاحقاً في برامجک يتم اشتقاقها من 
ApplicationException aat‏ كما آنک تحتاج ایضا لجعلها مشتقة من الفتة 
Serializable‏ من اجل امكانية استخدامها في ال Remoting‏ و 489 ۰ یمکنک تعریف 


خطأ Gols‏ بالشکل التالي مثلا : 


public class NewException : ApplicationException, 1۵1121 11 6 
| public NewException() 

something here 

NewException(string message) 

something here 


NewException(string message, Exception inner) 


something here. 


/ Xadau di Sexilizstion 
protected NewException(SerializationInfo info, StreamingContext context) 


{ 


// Add something here. 
) 
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VB.NET 


Public Class NewException 
Inherits ApplicationException 
Implements ISerializable 
Public Sub New() 
۲ Add something here. 
End Sub 
Public Sub New(ByVal message As String) 
۲ Add something here. 
End Sub 
Public Sub New(ByVal message As String, ByVal inner As Exception) 
۲ Add something here. 
End Sub 
' ال لعملية‎ Sterilization 
Protected Sub New(ByVal info As SerializationInfo, ByVal context As 
StreamingContext) 
۲ Add something here. 
End Sub 
End Class 





للمزید حول الاخطاء و اقتناصها یمکنک الرجوع إلى :MSDN‏ 


رابط هج 


http:// msdn.microsoft.com/en-us/library/ ms229014(VS.80).aspx 
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Collections التجميعات‎ 


الباب الحادى عشر التجمیعات Collections‏ 


فى تطبيقاتنا البرمجية المختلفة عادة ما نلجاً Container (Lex!‏ يحتوي على عدة polie‏ 
من أجل ذلك كانت ال array‏ ورأينا ان بامکاننا عمل array‏ من الارقام والنصوص واخيرا حتى 
من OL‏ مختلفة. الا اننا فد نحتاج إلى بعض المهام الاکثر من تلك التي توفرها UJ‏ ال «array‏ 


من اجل هذا و جدت ال Collections‏ المختلفة. فى درسنا هذا سوف نتعرف عليها إن شاء AW‏ 


System.Collections,g& Interfaces jl .1 


لو راجعنا الواجهات المو 3352 فى ال collection‏ لو جدنا ott‏ اجهات التالية: 


1010 ۵01 1 10/01 : 
تحتوي هذه الواجهة على بعض النقاط الاساسية مثل ال Size‏ وال 


0 57201201115 5 1 و خلاقه ; لها الشکل العام التالي: 


public interface ICollection : IEnumerable 
{ 

int Count-. 4 get; ] 

bool IsSynchronized { get; } 

object SyncRoot { get; } 

void CopyTo(Array array, int index); 


VB.NET 


Public Interface ICollection 

Inherits IEnumerable 

ReadOnly Property Count() As Integer 

ReadOnly Property IsSynchronized() As Boolean 

ReadOnly Property SyncRoot() As Object 

Sub CopyTo(ByVal array As Array, ByVal index As Integer) 
End Interface 





L.COmparer‏ : تعرفنا علیها سایقا. 
LDL Pena‏ + 


تستخدم كما هو واضح من اسمها من اجل الادلة. یمکن استخدامها لتخزین مثلا بیانات 
المو ظفین و عناوینهم بحيث يمكن العثور بعد ذلك على الشخص بدلالة dow!)‏ او عنوانه ۰ تحتوي 
على دوال للاضافة والحذف و خلافه . الشکل العام لها بالشکل التالي : 
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public interface IDictionary :ICollection, IEnumerable 


{ 


bool IsFixedSize { get; } 

bool IsReadOnly { get; } 

object this[object key] { get; set; } 
ICollection Keys { get; } 

ICollection Values { get; } 

void Add(object key, object value); 
void Clear(); 

bool Contains(object key); 
IDictionaryEnumerator GetEnumerator(); 
void Remove(object key); 


VB.NET 


Public Interface IDictionary 


Inherits ICollection 

Inherits IEnumerable 

ReadOnly Property IsFixedSize() As Boolean 
ReadOnly Property IsReadOnly() As Boolean 

Default Property Item(ByVal key As Object) As Object 
ReadOnly Property Keys() As ICollection 

ReadOnly Property Values() As ICollection 

Sub Add(ByVal key As Object, ByVal value As Object) 
Sub Clear() 

Function Contains (ByVal key As Object) As Boolean 
Function GetEnumerator() As IDictionaryEnumerator 
Sub Remove(ByVal key As Object) 


End Interface 
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TEnumerable 
TEnumerator 


>[DictionaryEnumerator 


لو لاحظت في [Dictionary‏ ستجد الدالة GetEnumerator‏ ۰ هذا هو ال interface‏ 


الخاص بهده الداله . لها الشکل العام التالي: 


الباب الحادی عشر التجمیعات Collections‏ 


public interface IDictionaryEnumerator : IEnumerator 


{ 


DiorióonaryEntry Entry {| get; | 
object Key { get; } 
object Value { get; } 


VB.NET 


Public Interface IDictionaryEnumerator 
Inherits IEnumerator 
ReadOnly Property Entry() As DictionaryEntry 
ReadOnly Property Key() As Object 
ReadOnly Property Value() As Object 
End Interface 





:IHashCodeProvider 
.GetHashCode المعین باستخدام الدالة‎ collection Js hash code یختص باعادة ال‎ 
: 1 1,1 1 


قائمة » هذا SS‏ ما في الأمر > تحتوي على (Mos duc‏ تسهل التعامل معها تلا ضاقه و البحث والحد‌ف 
و خلافه الشكل العام لها بالشكل التالي: 


public interface IList :ICollection, IEnumerable 
{ 

bool IsFixedSize { get; } 

bool IsReadOnly { get; } 

object this[int index] { get; set; } 

int Add(object value); 


void Clear()5 

bool Contains (object value); 

int IndexOf (object value); 

void Insert (int index, object value); 
void Remove (object value); 

void RemoveAt (int index); 
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VB.NET 


Public Interface IList 
Inherits ICollection 
Inherits IEnumerable 
ReadOnly Property IsFixedSize() As Boolean 
ReadOnly Property IsReadOnly() As Boolean 
Default Property Item(ByVal index As Integer) As Object 
Function Add(ByVal value As Object) As Integer 
Sub Clear() 
Function Contains (ByVal value As Object) As Boolean 
Function IndexOf(ByVal value As Object) As Integer 
Sub Insert(ByVal index As Integer, ByVal value As Object) 
Sub Remove(ByVal value As Object) 
Sub RemoveAt (ByVal index As Integer) 
End Interface 


System. Collections الفنات في‎ .2 


يحتوي على Glial)‏ التالية: 





ArrayList e 
Hashtable e 


Queue e 
SortedList e 
Stack e 


ArrayList 1 2 


هي قائمة array‏ كما هو واضح من الاسم . تتمیز بنفس سمات ال array‏ من حيث تخزینها 
لعدة بیانات. اضافة لمميزات القائمة التى تسهل عملیات الاضافة والتعدیل والتر تیب والحدف 
و خلافه (EIS‏ عناصر هذه المصفو 43. 
لنفترض ان Low‏ فئة (سیارة) السابقة Gilly‏ تحتوي على اسم السیارة ومودیلها ۰ كنا نعرف 
مصفوفة منها باستخدام الأمر التالي: 


CH 


Car[] carArray = new Car[4]; 


VB.NET 


Dim carArray As Car() = New Car(3) 
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ریما لم تكن Cà yx‏ اذک تحناج لاربع سیارات فقط . ریما تحناج للزيادة او للنقصان » ریما ترغب 
بحذف واحدة منهم من المنتصف ... الخ ۰ فكما ترى لا توفر لنا ال array‏ الكثير من الخيارات 
لتسهيل التعامل مع هذه الخصائص »› ستحتاج لبعض الأوامر للحذف و خلافه. 

بداية قم بعمل using‏ ل System.Collection‏ لتكون قادرا على التعامل المباشر معها 


72 


لاحقا. 


ڪو د | CH‏ 


using System.Collections; 


VB.NET ۱ کود‎ 


Imports System.Collections 


لکن جاءت ArrayList‏ لتلقي عن کاهلک اي مشاکل بخصوص هذه العملیات » کل ما عليڪ 
هو تعریف ArrayList‏ بالطريقة التالية: 
كود | CH‏ 


ArrayList carList = new ArrayList(); 


VB.NET | ipe 


Dim carList As New ArrayList )( 


OY 9‏ یمکنک اضافة سيارة: 








CH 


Car temp - new Car("BMW", 1990); 
carList.Add(temp); 


VB.NET 


Dim temp As New Car("BMW", 1990) 
carList.Add(temp) 


ڪو د CH‏ 


carList.Insert (temp); 
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VB.NET ۱ ae 





في الناحية اللأخرى ۰ تستطیع مسح كامل القائمة: 
ڪو د | CH‏ 


carList.Clear(); 


VB.NET ۱ oe 


أو حذف عنصر معین بدلاله مو قعه: 





CH | كود‎ 


carList.RemoveAt (4); 


VB.NET ۱ G 


CH كود‎ 


carList.Remove (temp); 


VB.NET 





یمکننا استخدام الخاصية Count‏ لمعر فة العدد. وبالتالي الدوران علیهم جمیعا بالشکل التالي 


مثلا: 


rar (int i ; Il & CåärLigtCount; XS) 


temp = (Car)carList [1]; 
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For i As Integer = 0 To carList.Count - 1 
temp = DirectCast(carList(i), Car) 
Next 


یمکننا استخدام بعض الخصائص الأخرى مثل Sort‏ كما تعلمنا سابقاء یمکننا تحویلها إلى array‏ 





عادية باستخدام الدالة -TOArray‏ الدالة Reverse‏ ستعکس ترتیب القائمة. الدالة ۱062401 1 
تستخدم Cod‏ بالطريقة التالية. لنفتر ض لدینا السیارة TEMP‏ ونرغب فى البحث عنها ضمن 
السیارات got!‏ جودة ۰ سیکون ذلك بالشکل التالی: 


CH 


int find = carList.IndexOf (temp, 0); 


VB.NET 


Dim find As Integer = carList.IndexOf (temp, 0)‏ 
وهكذا تستطیع استخدام المتغیر Find‏ للو صول إلى مکان العنصر والتعامل dao‏ كما ترید ۰ كما 
یمکنک تحدید نقطة بداية البحث 0 كما حددنا او تغییرها او عدم استخدامها اصلا . 
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واحد من طرق تخزين البيانات Data Structure‏ مهمته الاساسية تسهيل البحث عن البيانات 
المرتبطة . إذا لم تكن قد مرت عليك هذه ال Hash Table‏ من قبل فانصحك بالتعرف عليها من 
خلال ويكبيديا هنا: 


رابط هج 
http://en.wikipedia.org/wiki/Hash table‏ 


ویاختصار شدید , فال HashTable‏ هي عبارة عن مجموعة من المفاتیح KEYS‏ یخزن معها من 


الد لائل Indexes‏ تشیر إلى مکان باقي القیم المر Abad‏ مع المتاح الاساسي. 
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Keys Indexes Key-value pairs 
(records) 
QS) ها‎ TST | 
L 
872 | EN 
Usa Smith | gra اج‎ John Smith |+1-558-1234 














7357558 [ لس‎ | SamDoe |+1555-5030 | 


الصورة 11. 1. بنية ال HashTable‏ 
في السابق كنا نقوم بتکوین ال HashTable‏ عبارة عن dad ys Linked List‏ كل عنصر فيه 


Al Lana قیمکنک‎ OY! نقوم بعمل دواله واجراءاته المختلفة. آما‎ UE. اخری»‎ Linked Listo 
والیدء فى وضع البیانات فيه مباشرة باستخدام الاوامر التقليدية‎ HashTable cay ai 


Add, AddRange‏ و Remove‏ و خلافه مما تعلمناه في الدرس السابق. 
Queue 3 2‏ 


Qu‏ جمة الحرقية له في الطابور 0( ومع اني لا استسيغ بعض الترجمات لكن Y‏ بأس من 


توضیح ان ال QUCUE‏ ما هو الا طایور Co » Wad‏ يتم دفع البیانات ag)‏ باستخدام Enqueue‏ 


و اخراجها باستخدام ۰60176172 Joi‏ الداخلین هو اول الخارجين فنحن هنا نتحدت عن طایور 


إذا كنت تبرمج برنامج لتلقي طلبات العملاء فمن الطبيعي ان تضعها في طابور لیتم 
معالجة الاسبق بالوصول اولآء في السیرفرات ایضا؛ وربما اشهر امثلة ال QUEUE‏ هو البروسیسور 
(المعالج) حيث يتم ترتیب المهمات لیتم ادخالها إلى المعالج الأول و صولاً للطابور هو الأول 
تنفید! بابسط صورة 6 لکن لا تنس انه في نظم المعالجات الحديثة هناك العدید من العناصر التي 
تتحکم في دخول البیانات مثل الاو لوية اضافة لنظام ال Slides‏ حيث لا يتم تنفين ال Task‏ مرة 


و احدة ... الخ. 


uos‏ ان فد كرا .ساف رض gulis:‏ العماا الكل اتال 


219 


الباب الحادی pue‏ التجمیعات Collections‏ 


Queue empQueue - new Queue(); 

employee temp - new employee(); 

for (int i= 0; x < 10% i++) 

{ 
Lemp. userName = Console. Readline();7 
empQueue.Enqueue (temp); 


VB.NET 


Dim empQueue As New Queue() 

Dim temp As New employee() 

For i As Integer = 0 To 9 
temp.userName = Console.ReadLine|() 
empQueue.Enqueue (temp) 

Next 


لو قمنا OY!‏ يعمل LOOP‏ لنعمل DeEqueue‏ ستجد ان اول المو ظفین دخو لا سیکون آو لهم وا 
طبعا M‏ تنس أن بامکانک استخدام بعض الخصائص مثل Count‏ و خلافه تلك التی شر حناها فى 





الدر س السایق. 


الطایور . Lai‏ الداله Peek‏ فهی تعيد او J‏ عنصر فى الترتيب و لکنها تحتفظ به فى الطایور كما 


ies 


مع تطبیق هذه الفئة» آضن اظن انك تذكر لو كنت درست Data Structure‏ وكيفية تطبیق ال 
Queue‏ باستخدام ال linked list‏ » وال Circular queue‏ و الکتیر مما لن me jj‏ نفسک به مند OS‏ 


قصاعدا مع هذه ALAN‏ . 
Stack 4 2‏ 


مثل ال Oueue‏ فیما عدا انه يتبع LIFO - Last Input First Output asasi‏ » حيث ان 
العنصر الآخير في الدخول هو الأول في الخروج › يتم ادخال العناصر باستخدام Push‏ ویتم 
اخراجها باستخدام POD‏ » ال Peek‏ تقوم بمهمتها كما هي في عرض العنصر الأول وهو في 
حالتنا 31 92 دخو له دون حدفه من ال Stack‏ 
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تعريف ال Stack‏ يتم ببساطة بالشکل التالي: 


CH 


Stack jobStack = new Stack(); 


VB.NET 


Dim jobStack As New Stack() 





الاستخدامات 


یسهل تصور استخدامات من اجل ال 0ueue‏ ذلك ان معظم تطبیقات حیاتنا الیو due‏ تعتمد 
على ذلك . حيث الواصل أو لا يخدم او ٠ Y‏ لكن ال otack‏ بمبدته المنافي للعدالة ريما سیکون 
غريباً بعض الشيء تطبيقه في حياتنا الحقيقية ۰ لذا فإن استخدام ال Stack‏ يقتصر في العادة 
على تطبيقات الکو مبیو تر . 
ابسط استخدام لل Stack‏ هو حل المعادلات في | peel‏ 9 سیسوو. ان المعادله: 
A+B‏ 
تدخل إلى البرو سیسور بالشکل النالي: 


AB+ 


يسمى هذا الاسلوب باسم postfix‏ و فی البروسيسور ینم ادخالهم في Stack‏ لتنفيذهم Co‏ ان 


تنفيذهم لن يتم بترتيب الوصول ؛ مثال آخر فى ترجمة ال Compilers‏ ایضا. 


في المرفقات برنامج يوضح كيفية التحويل بين postfix‏ و infix‏ كان احد مشاريع الكلية في 
الفرقة الثالثة ل (FUTEX Group‏ يوضح البرنامج كيفية التحويل وكيفية يقوم البروسيسور 
بوضعهم في Stack‏ وتنفيذهم . قم باختیار View‏ لاستعراض سرعة عرض الخطوات ۰ یمکنک 
الحل باستخدام الارقام او الرموز ويمكنت الاختيار فيما بينهما من اعلى النافذة . هذا إذا كنت 


مهنما ببعض التفاصيل. 
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رابط هج 
http://vb4arab.com/vb/uploaded/3/21207604046.rar‏ 


أو یمکنک الإطلاع على ناتج alec‏ التحويل مباشرة من هذا المو قع : 


http://scriptasylum.com/tutorials/infix postfix/infix postfix.html 





مزید من التفاصیل تجدها في موقع MSDN‏ هنا: 


http://msdn2.microsoft.com/en-us/library/aa289149(VS.71).aspx 


كل ما سبق فى هذا الدرس ینطبق تحت علم Data Structure‏ » یمکنک الانطلاق من هذه النقطة 
إذا كنت ترغب فى معرفة الکثیر عن هذا العالم الذي یتداخل معک كثيرا فى عالمک ۰ سيفيدك 
ان تكون مطلعا على اساسياته اضافة لعلم ال Algorithms‏ 

Ga ويحتوي على‎ System.Collections.Specialized هناك ما يعرف باسم‎ Lal 


خرن اکتر. تخصضا Aat‏ من Glial‏ السايقة . 
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البرمجم المنعدمم في ال 


Net 


الباب الثانی عشر البرمجة المتقدمة فى ال net‏ 


في هذا الفصل سوف نتعرف على بعض عناصر البر مجة في net‏ منها الجدید الذي ظهر لاول مرة 
مع 2008 net‏ فقط ومنها عناصر موجودة قبلا و لکنها متقدمة نوعا Lo‏ لذا قمنا بتجمیعها سوية 


فى هذا الباب . 


Generics ال‎ .1 


نواصل في هذا الدرس مع واحدة من التطورات الجديدة مع 2.0 «net Framework‏ هي ال 


5 لتعطی يعدا جدیدا لمفهوم ال overloading‏ لنفترض مثالا ما للطباعة بالشکل التالي: 


۳ ۵ void orcint(inb x) 
{ 


Console.WriteLine("Print As Integer {0}", x); 
) 
Dubileé static Void print (long x) 
{ 


Console.WriteLine("Print As Long {0}", x); 
) 
publio 828636 void print (String x) 
{ 


Console.WriteLine("Print As String {0O}", x); 


1 


VB.NET 


Public Shared Sub print(ByVal x As Integer) 
Console.WriteLine("Print As Integer {0}", x) 

End Sub 

Public Shared Sub print(ByVal x As Long) 
Console.WriteLine("Print As Long {0}", x) 

Eno sub 

Public Shared Sub print (ByVal x As String) 
Console.WriteLine("Print As String 10)"; x) 

End su» 





الکود كما هو واضح ald‏ يعمل ثلاث دوال بنفس الاسم لاستقبال بارميترات مختلفة ۰ وهکدا تجد 
انك تستطیع في الکود استدعاء الدالة الطباعة للار قام او لل longs‏ او للنصوص ۰ جرب عدة 


عملیات لطباعة plas‏ مختلفة و شاهد جملة الطباعة » على سبیل المثال الأوامر التالية: 
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print ("Ahmed"); 
DEINE, 
print(1000000000000); 


Print ("Ahmed") 


Print (12) 
Print(1000000000000) 





سیکون ناتج الطاعه بالشکل التالی: 
nile Cy sers Ahmed; Documents Visual Studio Z0OB/Progects/ConsoleApplicabiond/ConsoleApplic... c | E miim‏ 
Print As String Ahmed‏ 


Frint He Integer 12 | 
Print As Long 1868888808088 








الصورة 12. 1. ناتج تنفين العملیات 

ال Generic‏ ستغیر المفهوم نوعا ۰ حيث ان بامکانک OY!‏ تعریف دالة لا تستقبل نوعا معینا من 
المتغیرات » بل هي تستقبل <1> وتتعامل das‏ على هذا الاساس . لذا قد نستطیع افتراض الدوال 
الثلاث السابقة بالشکل التالی 


public static roid print«r-»(r x) 
{ 

Console.WriteLine("Print As {0}: (1)", typeof(T), x); 
j 
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VB.NET 


Public Shared Sub orint (OL T) (ByVal x As I) 
Console.WriteLine("Print As {0}: {1}", GetType(T), x) 
End Sub 





والان في حالة تطبیقنا لنفس المتال السابق » سوف یکون الناتج حکالتالي: 


۱ BB ibe: CUr Ahmed Documents Visual Studio 2008/Projects/ConsoleApplicationd/ConseleApplse... = E] miim] 


Print As System.String: Ahmed 
Print fi; $System.Inti7: 12 
Print As Syatem.Inth4: (۳ 








الصورة 12. 2. ناتج تنفين العملیات 


Structure and Class Generics .1 1 


في الدرس السابق تعرفنا على ال methods‏ التي تطبق ال kas Generics‏ ال Classes‏ وال 
Wises Structs‏ تطبیق هذا المفهوم لبعض البیانات يها » سنفتر ض مثال ال 01355 وما ينطبق على 
ال Class‏ بنطبق gle‏ ال .Struct‏ 


T ALT‏ فعد 5 le CESE‏ البضائع 1 و Coo‏ ان Lau‏ نو عین من البضاتع يحنوي النو ع الأول 


على الاسم وهي تلك البضائع التي يتم تصنيعها في المحل ( انوع من الجبن او الزبادي ( وبضاتع 
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آخری جاهزة تحتوي على البار کود . بهده الطريقة نسنتج ان حقل Identify‏ قد يحتوي على 


اسم في بعض البضائع ورقم في بضائع آخری. 


الحل التقليدي كان ليعتبر و جود فثتين منفصلیتن أو في آحسن الظروف وضع قیمه 
منطقیه لتحديد اذا ما كنت ساستخدم jae‏ ال e! name‏ حقل ال number‏ لکن مع ال 


5 تم تغییر هذا المفهوم ۰ في هذه الحالة ستصبح الفئة بالشکل التالي: 


publlo Class progucLcr» 

{ 
private T Identify; 
puolis producu.(T val) 
{ 


Identify = val; 
Console.WriteLine (Identify); 


Public Class producct(or T) 
Private Identify As T 


Public Sub New(ByVal val As T) 
Identify = val 
Console.WriteLine (Identify) 

End Sub 

End Class 





والآن يمكنني تعریف كائن من النو ع الأول بالشکل التالي: 


CH 


pIOJXUGUSZBEL- prd = new proguotsine (LOOL, 


VB.NET 


Dim prd As New product(Of Integer) (1001) 





أو من النوع الثاني بالشکل التالي: 


CH 


product«string- prd2 = new product <string> ("Some Product"); 
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VB.NET 





Dim prd2 As New product(Of String) ("Some Product") 


Generic Collection .2 .1‏ 
كما تعرفنا في الدرس السابق ان بامکاننا عمل Generic Class‏ اصبح الدور OF!‏ على عمل 
Generic Collection‏ ستقوم يعمل فئة تستقبل عدة GU‏ ویقوم بعدة عملیات Jis‏ 


Add, Delete ... etc‏ كما تعلمنا سابقاً « هذا مثال على Collection‏ ما: 


public clase MyvCcollectionsr 
) private List<T> myList = new م () <1> او لیا‎ 
public T GetItem(int pos) 
return myList[pos]; 
ados void AddItem(T it) 
١ 1 ۶ ۱ nod(orxb)s 
PE void ClearCars() 
myList.Clear(); 
} 


VB.NET 


Public Class MyCollection 91 T) 
Private myList As New List(Of T) () 
Public Function GetItem(ByVal pos As Integer) As T 
Return myList (pos) 

End Function 

Public Sub AddItem(ByVal it As T) 
myList.Add(it) 

End Sub 

Public Sub ClearCars() 
myList.Clear() 

End Sub 

End Class 
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طیعا بامکانک اضافة الکثیر من الخصائص وریما بعض الخصائص pall‏ متوفرة dóu Sel‏ 
و خلاقه ۰ هذا ما یسمی بال Generic Collection‏ حيث یمکن فى مراحل لاحقة الاعتماد عليه يبدل 
ال Colelctions‏ العادیة Cu‏ يمكن ان بستقیل Car‏ او .... Employee‏ إلى غير ذلك من 


الخیارات + بالشکل التالی متلا : 


Identify = val; 

Console.WriteLine (Identify); 

MyCollection<Car> myCars = new MyCollection<Car>(); 
myCars.AddItem(temp) ; 

MyCollection<Employee> myCars = new MyCollection<Employee>(); 
myCars.Additem(tempEmployee) ; 


Dim myCars As New MyCollection(Of Car) () 
myCars.AddiItem (temp) 

Dim myCars As New MyCollection(Of Employee) () 
myCars.AddItem(tempEmployee) 





أو حتى y‏ قام: 


CH 


Myvtollectiods210L- my aro = new Ny collection ini); 
myCars.AddItem(12); 


VB.NET 


Dim myCars As New MyCollection(Of Integer) )( 
myCars.AddItem(12) 





هنا ظهرت Li‏ مشكلة تتعلق بکون ال Ua Golan Generic Collection‏ يحتوي على خصائص Sie‏ 
6 عرضها » وهذا ما لا یتوفر Mie‏ لكل Glial)‏ او للارقام مثلا ۰ من هنا جاءت LS‏ الکلمة 


المحجوزة where‏ والتي سنتحدث عنها في الدرس القادم. 
1 3. استخدام where T‏ 


یتیح لنا هذا الشرط في عمل ال Generic Collection‏ ان Y‏ تقبل سوی بعض الفثات ‏ یمکننا 


وضع الشروط بأحد الطرق التالية: 
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الشر de‏ المعنی 


RefernceType ¢ sl من‎ Sow لا یقبل‎ 


Y‏ بد ان یکون مشتق من CLASS‏ معین او يطبق 


ees IONE Sie Lee 





الجدو J‏ 12. 1. استخدام الشروط مع ال Generics‏ 
بهده الطريقة یمکننا دمج عدة شروط مع بعضها . لنری المثال التالي سوية: 


CH 


public class Example «T» where T : class, IComparable, new() 


VB.NET ۱ oe 


Public Class Example(Of T As {Class, IComparable, New}) 
وتحتوي على‎ [Comparable تطبق الواجهة‎ » reference لا بد ان تکون‎ T هذا یعنی ان‎ 
.Constructor 


ایضا المثال التالي: 





CH 


public class Example«K, T» where K : class, new() 
where T : IComparable<T> 


VB.NET 


Public Class Example(Of K As (Class, Newj, T As IComparable(Of T)) 





هذا يعني ان K‏ لا بد ان تکون Reference‏ ولها constructor‏ فيما Y T‏ بد ان تطبق الواجهة 
[Comparable‏ . 


والآن » اصبح بامکانک التحکم بعض الشيء في T‏ بدلا من جعلها مفتو حة للجمیع. 
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Delegates ال‎ 2 


ال advanced .net programming‏ مو عدنا هذه 


نواصل 
.DelegatesJı‏ 


۵ هه المر‎ Lot» y 


e 


قبل ان نشرح تركيبها وكيفية التعامل معها . سنقوم بشرح label‏ نقوم باستخدامها. 


لنفترض عدة دوال تستقبل int‏ وتعید int‏ ایضا خاضة بعملیات التحویل ۰ وهی على الشکل 


publico int 
{ 


return 
) 
DUDIIl8 int 
{ 


return 
) 
public int 
{ 


return 
) 
public int 
{ 


return 
) 
public int 
{ 


return 
1 
public int 
{ 


return 
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ConvertEGToD (int EG) 
EG * 25.455 
ConvertRSToD (int RS) 
Roc ud 
ConvertEGToRS(int EG) 
EG * 1.45; 
ConvertDToRSí(zint D) 
pore Sms 


ConvertDToEG(int D) 


Df 645; 


ConvertRSToEG(int RS) 


RS 7 1.45; 





الباب الثانی عشر البرمجة المتقدمة فى ال net‏ 


VB.NET 


Public Function ConvertEGToD(ByVal EG As Integer) As Integer 
Return EG * 5.45 

End Function 

Public Function ConvertRSToD(ByVal RS As Integer) As Integer 
Return RS- * 3.75 

End Function 

Public Function ConvertEGToRS (ByVal EG As Integer) As Integer 
Return EG * 1.45 

End Function 

Public Function ConvertDToRS(ByVal D As Integer) As Integer 
Return D * 3.75 

End Function 

Public Function ConvertDToEG(ByVal D As Integer) As Integer 
Return D / 5.45 

End Function 

Public Function ConvertRSToEG(ByVal RS As Integer) As Integer 
Return RS / 1.45 

End Function 


كما Mad Citas Y‏ فهي otc‏ دوال تستخدم للتحويلات المخنلفه بين ثلاث عملات. الجنية المصري 


والریال السعودي والدولار الأمريكي. 





طبعا یمکننا عملهم في Af‏ واحدة وارسال متغیر یمثل رقم التحویل ‏ لکننا لن نستطیع عمل ذلك 
Mis‏ مع دوال اکبر ومختلفة ؛ لذا فهذا المثال للتوضیح. 


الآن في برنامجنا سنقراً البیانات من المستخدم 6 ومن ثم نستخدم جملة شرط if‏ او SWitch‏ 


لتحدید اي دالة سنقوم بارسال البیانات الیها » هذا مختصر للکود المکتوب: 


if (Operation == 0) 
result = ConvertDTOoEG(userInput); 
else if(Operation ) 
result = ConvertRSToD (userInput); 


If Operation = 0 Then 

result = ConvertDToEG (userInput) 
ElseIf Operation = 1 Then 

result = ConvertRSToD (userInput) 
End lr 





ولکن لنفترض اننا فقط OF)‏ نود معرفة نوع العملية دون تنفید‌ها وعرضها للمستخدم حيث 


سئئفذها لاحقا < هذا يعني اننا سنقو A‏ ينات الاختبار مرتین › مرة للعرض على المستخدم و مر ô‏ 
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لتنفيت | c Alea‏ ایضا آلا تتفق معي في انك قد تحتاج لتنفید العملية مرتین في مکانین مختلفین 
Leo‏ دمت لا تحتفظ Sow‏ برقم ال Operation‏ اذا ستضطر deal‏ جمل do LAM‏ مرة آخری. 


من أجل هذا و Gas‏ ال .Delegates‏ 


2. تعریف ال Delegates‏ 

لو اردنا تعریف Delegates‏ لمجموعة دوال » اول ما نحتاج إليه ان تکون هذه الدوال من نفس عدد 
البارمیترات . ايضاً لها نفس ال input‏ وال output‏ » لذا سیکون ال Delegate‏ الخاص بدوالنا 
بالشکل التالي: 


CH 


publio delegate ant. myDelegate(l8L valus); 


VB.NET 


Public Delegate Function myDelegate(ByVal value As Integer) As Integer 
جمه - الداله‎ J| ان احدد لهذا التفويض - ان صحت‎ adb والآن كل ما على فى جملی الشر‎ 
المختصرة بالشکل التالى‎ Like المسوول عنها › لذا سنکون شر و‎ 





(Operation -- 0) 


myDelegate aDelegate = new myDelegate (ConvertDToEG); 
result = aDelegate ((userInput); 

i 

else if (Operation == 1) 

{ 
myDelegate aDelegate = new myDelegate (ConvertRSToD) ; 
result = aDelegate ((userInput); 


VB.NET 


If Operation = Q Then 
Dim aDelegate As New myDelegate (ConvertDToEG) 
result = aDelegate (userInput) 

ElseIf Operation = 1 Then 
Dim aDelegate As New myDelegate (ConvertRSToD) 
result = aDelegate (userInput) 

End If 
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ایضا بامکانک تأخير الشرط الأخير الذي يقوم بتنفین ال Delegate‏ للنهاية « او تکرار استخدامها 
مرة آخری ۰ حیث ان ال aDelegate‏ قد اصبحت تعرف اي دالة تختص بتنفين هذه العملية الآن › 


لذا یمکنک كتاية الکود بالشکل التالی : 


(Operation == 0) 


nvLelegate aDelegate new mvyvDelegate(lCconvertDTOBG); 
06 if (Operation -- 1) 
| mvbelegate aDelegate new myDelegate(ConvertRoroD); 
^ là الاو امر يحض‎ Lia 
result = aDelegate (userInput); 


VB.NET 


If Operation = 0 Then 

Dim aDelegate As New myDelegate (ConvertDTOoEG) 
ElseIf Operation = 1 Then 

Dim aDelegate As New myDelegate (ConvertRSToD) 
End If 


VLS gie فا الأو اسن‎ 
result = aDelegate (userInput) 





وهکدا » یمکنک تأخير استدعاء الدالة حتی تنتهي من تنفين أي آوامر مرتبطة دون ان تقلق من 


أنكت ستعید التأحد مرة أخرى » هذه و احدة . 


والثانية یمکنک عمل التأكد فى Atta‏ منفصلة واعادة ال Delegate‏ جاهز للتنفين ۰ هذا يفيد 


كثيراً في حالة العمل على JSG‏ مجموعات . 
2. الأحداث Events‏ 


لو جربنا الآن ان نقوم بعمل حدث معین CY‏ موظف عندنا (مرض ... الخ أو لاي سيارة 


(حادث اصدام ... الخ) كنا نقوم بذ لک (TM‏ عن طریق Event awl Delegates‏ مثلا > ونقوم 
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بتمریر الدالة الخاصة بالحدث له واذا كنت قد توسعت في ال cola Delegates‏ قادر على معر 43 
انك تستطیع عمل List‏ بالاحداث التي تم تنفيذها على هذا ال Delegate‏ 

الآن سنتعلم الآمر بطريقة جديدة عن طریق الکلمة المحجوزة Event‏ ... 

سنعرف في البداية Delegate‏ مسوول عن كافة الأحداث التي تحصل للسيارة Wie‏ لعمل 


: يستقبل نص الرسالة المطلوية‎ Delegate 


ڪو د | CH‏ 


public delegate void CarEventHandler(string msg); 


VB.NET ۱ Spee 
Public Delegate Sub CarEventHandler (ByVal msg As String) 


والان سنقوم بتعریف يعض الاحداث: 


CH | كود‎ 
public event CarEventHandler Exploded; 

public event CarEventHandler Damaged; 

VB.NET ۱ کود‎ 


Public Event Exploded As CarEventHandler 
Public Event Damaged As CarEventHandler 


oF!‏ یمکنک ببساطة من خلال الکود تنفين اي حدث فیهم بالشکل التالي: 








CH 


Damaged("my car"); 


VB.NET 


Damaged("my car") 
لمعرفة اذا كان تم اطلاقه قبل ذلك أم لا‎ Y ام‎ event == null وأيضاً يمكنك اختبار اي‎ 
لا.‎ pl هل السيارة متلا تم تدمیرها‎ ad past 
: الحدث إلى الكائن‎ Alis آخر نقطة . لاضاقة‎ 





CH 


Car.EngineHandler d = new Car.CarEventHandler (CarExploded); 
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VB.NET 


Dim d As Car.EngineHandler = New Car.CarEventHandler (CarExploded) 
على‎ slo لتنفين المهمة المطلوية وهی اظهار رسالة‎ CarbExploded يتم تعریف الدالة‎ Co 
: مثلا‎ GIUM بالشکل‎ » Damaged النص المرسل والذي تم ارساله فى الحدث‎ 





public void CarExploded(string msg) 
{ 


Console.WriteLine (msg); 


} 


VB.NET 


Public Sub CarExploded(ByVal msg As String) 
Console.WriteLine (msg) 
End Sub 





C# فى‎ haa Anonymous Methods ال‎ .3 


]13 كنت قد استوعبت الدرس السایق عن ال cola Delegates‏ تدرك أن بامکانک استدعاء 
atte‏ باستخدام متغیر من النوع Delegate‏ . 
وبعد الدرس الخاص ب Events‏ اصبحت تدرك ان بامکانک اضافة اسم دالة لیمثل الحدت 


الذي قمت ببر مجته بالشکل التالي مثلا: 


CH 





t.SomeEvent += new SomeDelegate (MyEventHandler); 


والآن لنفترض انك لا ترید استدعاء الدالة سوى فى هذا المکان فقط . لذا سیکون من المکلف 


تعریف الدالة ومن ثم استدعاء‌ها فى Delegate‏ . هنا يظهر LJ‏ ما یعرف باسم ANONYMOUS‏ 


5 حيث بامکانک تعریف الدالة و سط الکود. 


لنری الکود التالي مثلا: 


t.SomeEvent += delegate( 


Console.WriteLine("Some Text"); 


} 
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نعم هذا صحیح ولکن فقط مع CH‏ كما تری اصبح OY!‏ بامکانک تعریف الدالة في موقع 
استخدامها فقط c‏ یمکن ایضا ان تکون الدالة تستقبل Bae‏ بارمیترات بالشکل التالي مثلا: 


t.SomeEvent += delegate(object sender, CarEventArgs e) 


{ 


Console.WriteLine ("Some Text {0}",e.msg); 


} 





ایضا بامکان ال Anonymous method‏ ان تصل إلى المتغیرات المو جودة في الدالة التي تم تعريفها 


4. اسننتاد آنواء المتغیرات 


في ايام الفیجوال بيست 6 ۰ كنا قادرین على تعریف متغیر دون تحدید نوعه بالشکل التالي: 





في الواقع كان الفیجوال بیسک يقوم بتعریفها مبدئیا من النوع Object‏ في حين كان مثل هذا 


الامر ممنوعا في اللغات التي تتبع عائلة السي. 


مع 2008 .net‏ . اصبح يامكان السي شارب Car pad‏ متغیر بدون الحاجة إلى تحدید نوعه بالشکل 


التالي مثلا: 


CH | كود‎ 


yar x = 2.3 77 couple 


VB.NET 


Dim x = 2.3 ` double 





الهدف من هذه العملية هو تعریف متغیر قادر على حمل اي نوع من البیانات » لکن كن حذرا . فلن 
يمكنت مثلا VAL cas pa‏ فى الفئه مباشرة ۰ او فى بار میترات الدالة أو فى ال return‏ 
value‏ تماء آخیرا Y‏ ممكن تل Var‏ آن null A448 Joos‏ 
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المثال التالي یجمع الأخطاء التي لا يمكن استخدام VAL‏ فیها: 


class classname 


{ 


7۳ % 95s الشكة شن شعريفة‎ dudas 
private var varInt = 10; 
// Y ك او کبارمبتر التعریف يمكن‎ return value 
var functionname(var x, var y)l } 
void somefunction() 
{ 
LIC أن يفمكن‎ lies X3 full 
var varNull=null; 
yJ ues nige inbh فشک لا‎ Ol iae اا فش‎ 
var? varNullable = 12; 
// Y تعیین من بد‎ 3 
var m; 





Extension Methods aniggll الدوال‎ .5 


ال Extension Methods‏ واحدة من خواص 2008 net‏ الجديدة » تتیح لک هذه الخاصية 


التعدیل على فثات مو جودة مسبقا و اضافة دالة أو دوال جديدة. 


لنفترض اننا نرید اضافة all‏ للفئة String‏ لتقوم بالتآأكد من صحة البرید الالكتر وني › 


سنقوم Ala (Lexi‏ تستخدم Regex‏ بالشکل التالي مثلا: 


public static class Extensions 


{ 
puolic statice bool IsValidEmallAddress (this string s) 


{ 


Regex regex = new Regex (@"*[\w-\.]+@([\w-]+\.)+[\w-] (2, 4) $") ; 
return regex.IsMatch(s) ۶ 
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VB.NET 


Imports System.Runtime.CompilerServices 
Module StringExtensions 
<Extension()> 


Public Function IsValidEmailAddress (ByVal s As String) As Boolean 
Dim regex As New Regex ("\wt([-+.']\wt) *@\w+ ([-.] Nw*) *\.\wt([-.] \wt) *") 
Return regex.IsMatch(s) 
End Function 
End Module 





والآن » یمکننا بكل يساطة تعریف متغیر STING‏ بالشکل التالی: 


string mailExample = "email@mail.. com"; 
MessageBox.Show(mailExample.IsValidEmailAddress.toString()); 


VB.NET 


Dim mailExample As String = "email@mail. com" 
MessageBox.Show(mailExample.IsValidEmailAddress.toString()) 





Automatic Properties 


سايقا ومن اجل انشاء Properties‏ كنا a gas‏ بتعریف دوال Set‏ و Get‏ للقراءة والکتابه 


بالشكل التالي مثلا: 





Public Class myclass 


{ 
private string _name; 
public string name 


{ 


get {return _name; } 
set {_name=value; } 
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VB.NET 


Ppuolic Class [myclass] 
Private _name As String 
Public Property name() As String 
GEC 


Return name 


End Get 
Set(ByVal value As String) 
name - value 
End Set 
End Property 
End Class 





الآن اصبح بامکانک كتاية الکود بالشکل التالي: 


publie class m class 
{ 
public string name{get; set; } 


} 


VB.NET 


202511386 Class Imyclass. 
Public Property name() As String 
OL 
End Get 
Set(ByVal value As String) 
End Set 
End Property 
End Class 





Lamda Expressions تعابیر لامدا‎ 7 


كنا قد تحدثنا في موضو ¢ سابق عن Anonymous Methods‏ التي تمکننا من کتابة كود 
الداله فى مکان استدعاءها Le‏ دمنا لن نستدعیها Cow‏ مرة واحدة فقط . لنفتر ض مصفو 43 نقوم 


فيها بالبحث عن الاعداد التي QUAS‏ القسمة على 2: 
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Static void TraditionalDelegateSyntax() 

{ 
List<int> list = new List-Xnt^(i(); 
list.AddRange(new int[] ( 20, 1, 4, 8, 9, 44 }); 
Predicate<int> callback = new Predicate<int>(IsKvenNumber) ; 
List<int> evenNumbers = list.FindAll (callback); 
Console.WriteLine ("Here are your even numbers:"); 
foreach (int evenNumber in evenNumbers) 
{ 

Console.Write("i10])Xt", evenNumber) > 

) 

) 


static bool IsEvenNumber(int i) 


{ 


return 


Private Shared Sub TraditionalDelegateSyntax() 
Dim list As New List(Of Integer) )( 
list.AddRange (New Integer() (20, 1, 4, 8, 9, 44}) 
Dim callback As New Predicate(Of Integer) (AddressOf IsEvenNumber) 
Dim evenNumbers As List(Of Integer) = list.FindAll (callback) 
Console.WriteLine("Here are your even numbers:") 
For Each evenNumber As Integer In evenNumbers 
Console.Write("IO0)" & Chr(9) & ""., evenNumber) 
Next 


End Sub 

Private Shared Function IsEvenNumber (ByVal i As Integer) As Boolean 
Return (i Mod 2) 

End Function 





مع استخدامنا لل Anonymous Methods‏ من 2008 CH‏ اصبح باستطاعتنا کتابتها بالشکل التالي 


كما تعرف: 
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net المتقدمة فى ال‎ Aagpll 


Static void TraditionalDelegateSyntax() 

1 
List<int> list = new زا اک ایا‎ 
list.AddRange (new int[] { 20, 1, 4, 8, 9, 44 }); 
Predicate<int> callback = new Predicate<int>(IsKvenNumber) ; 
List<int> evenNumbers = list.FindAll (callback); 
Console.WriteLine ("Here are your even numbers:"); 
foreach (int evenNumber in evenNumbers) 


{ 


Console.Write("IO0lXE". evenNumber) > 


} 
} 


static bool IsEvenNumber (int i) 


{ 


return 


Dim list As New List (Of Integer) () 
list.AddRange (New Integer() (20, 1, 8, 9, 44}) 


Dim evenNumbers As List(Of Integer) = list.FindAll(AddressOf 

ConvertedAnonymousMethodl) 

Console.WriteLine("Here are your even numbers:") 

For Each evenNumber As Integer In evenNumbers 
Console.Write("i0)" & Chr(9) $& "", evenNumber) 

Next 





الباب الثانى puc‏ 


الجديد في 2008 .net‏ هو استخدام ما يعرف باسم Lambda Expressions‏ والتي يمكن كتابتها 


VB.NET 


Function(i As Integer) (i Mod 2) = 0 
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الباب الثانی عشر Aagull‏ المتقدمة فى ال net‏ 


حيث ان ال 1 هی البار pire‏ ۰ و نو Sia ۰ : Ac‏ حنی الاستغخناء عن تعريف نوع البار میتر oy‏ 


Lambda‏ سوف تتعرف عليه تلقائياً » لذا سيكون الكود الكامل بالشكل التالى: 


List«int» list = new List<int>(); 
list.AddRange(new int[] ( 20, 1, 4, 8, 9, 44 }); 
List<int> evenNumbers = list.FindAll(i => (i $ 
Console.WriteLine ("Here are your even numbers:"); 
foreach (int evenNumber in evenNumbers) 


{ 


Console. write ("iO t"; evenNumber) > 


Dim list As New List (Of Integer) () 
list.AddRange (New Integer() (20, 1, 9, 44]) 
Dim evenNumbers As List(Of Integer) list.FindAll(Functioni(ri As ) 
0) 
Console.WriteLine("Here are your even numbers:") 
For Each evenNumber As Integer In evenNumbers 
Console.Write("(0j" & vbTab, evenNumber) 
Next 





‘return value 
فقط »2 يمكنك الاطلاع على‎ Crue , false لیس فقط اعادة قيمة واحدة أو‎ Lise 


المثال التالي: 


List<int> evenNumbers = list.FindAll((i) => 


{ 


Console.WriteLine ("value of i is currently: (OF, i); 
bool isEven == 0)? 
return isEven;j 


E 





انضا مك تمرير اكفر شن فار هار + و ذلك Cais,‏ الدالة...: 


:Lambda مواصفات‎ 


- لا تملك Lambda‏ خاصية الإسم . 
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- لا یمکن استخدام بعض مبادئ ال Overloads gås OOP‏ أو Overrides‏ 

- لا تستخدم قسم AS‏ لتحدید نوع القيمة المعادة وبدلا من ذلك يتم استنتاج المتغیرات تلقائياً . 
- داخل التعبیر لا بد من 9 جود كود ولیس تعریف لشيء آخر › ویمکن استدعاء دالة آیضا . 

- لا يتم استخدام Return‏ بل يتم اعادة قيم الدالة مباشرة . 

- لا يوجد End‏ أو }{ في .Lambda‏ 

- لا یمکن استخدام Optinal‏ في VB‏ 

- لا یمکن استخدام .Generic‏ 


Object Initializer Syntax انشاء الکاننات‎ gum .O 


لن نطیل كثيرا في هذا الدرس ۰ فقط سنتعرض Baal‏ امثلة سريعة عن فثة المو ظفین التي 
دحنوي خصاتص الاسم والعمر والمرتب. 
المتال الأول ما قبل 2008 :.het‏ 


public class Employee 
{ 
private string _name; 
private string age; 
private string salary; 
public string name 
{ 
get { return name; } 
set { _name = value; } 


j 


public string age 
{ 


get { return _age; } 
set { _age = value; } 
) 
publi string salary 
{ 
get { return Salary; J 
set ( salary = value; } 
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VB.NET 


Public Class Employee 


Private name As String 
Private age As String 
Private salary As String 
Public Property name() As String 
Ger 
Heturn name 
End Get 
Set(ByVal value As String) 
name - value 
End Set 
End Property 
Public Property age() As String 
DSL 
Return . age 
End Get 
Set(ByVal value As String) 
age - value 
End Set 
End Property 
Public Property salary() As String 
Get 
Return salary 
End Get 
Set(ByVal value As String) 
Salary = value 
End Set 
End Property 
Class 


الباب الثانى puc‏ 





المثال الثاني مع 2008 .net‏ و باستخدام automatic property‏ التي تعلمناها في درس سابق: 


VB.NET 


Public Class Employee 


Public Property name() As String 
Get: End Get 
Set(ByVal value As String) 
End Set 

End Property 

Public Property age() As String 
Get: End Get 
Set(ByVal value As String) 
End Set 

End Property 

Public Property salary() As String 
Get:End Get 
Set(ByVal value As String) 
End Set 

End Property 


End Class 
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الباب pill‏ عشر Aagull‏ المتقدمة فى ال net‏ 


public class Employee 
{ 


DLL string namo d gery sec; } 
public string age { get; set; } 
public string salary { get; set; } 





المثال الثالث ومع استخدام Object Initializer Syntax‏ الجدید 2008554 anet‏ نرید 
oll‏ صول إلى الخصائص التي سبق لنا تعریفها بأحد الطرق السابقة ۰ في السابق كنا نکتب كود 


بالشکل التالي: 


Employee e - new Employee(); 
e.Name="Ahmed"; 

e.Age=15; 

e.salary=6000; 


VB.NET 


Dim e As Employee - New Employee() 
e.Name = "Ahmed" 

e.Age 

e.salary 6000 





الحدید هنا: 


Employee e = new Employee { Name = "Ahmed", Age = 15, salary = 6000 7 


VB.NET 


Dim e As Employee = New Employee With {.Name="Ahmed" , .Age=15, .Salary=1500} 








Anonymous Types Algaagill الأنواع‎ 9 


نواصل في هذا الدرس شرح الخصائص الجديدة في 2006 Met‏ في هذا الدرس سوف نتعر ف 


. Anonymous Types علی‎ 
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لا تنسی اننا تعلمنا ان بامکاتنا تعريف متغیرات محجهو له باستخدام الكلمة VAL‏ فى السی شارب . اما 
oM!‏ فلم تعد متغیرات مجهو له الهوية فقط بل یامکانک تعریف انواع مجهو له ایضا > لن dale!‏ 


كثيرا في المقدمة ۰ انظر إلى الکود التالي : 


CH 


var e = new { Name = "Ahmed", Age = 20 }; 


Dim e As Employee = New Employee With {.Name="Ahmed" , .Age=15, .Salary=1500} 
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vc OF‏ یامکانک قراءة  e.Name‏ و ۰.8۸6 بدون تعریف الفئثة اصلاء 
Lila’‏ ال Anonymous Types‏ يتم اسناده مباشرة إلى System.Object‏ لذا فهو يحتوي على 


خصاتئصه الاساسية. 
ماذا استفيد ؟ 


في LINQ‏ يمكننا تعريف فئة ترتبط Albee gilu‏ الاستعلام » لنفترض اننا نود قراءة ناتج جملة 
استعلام ولا نعلم تحديدا شكل الناتج » يتم ذلك بالشكل التالى : 


CH | 


var result = from emp in employee select new 1 emp.Name, emp.Salary ۶ 


VB.NET 


Dim namePriceQuery = From emp In employee Select emp.Name, emp.Salary 





Key Properties الخصائص المفتاحية‎ 
p نص‎ 

تختلف الخصائص المفتاحية عن العادية بعدة أمور 

- تستخدم الخصائص المفتاحية فقط لمقارنة المساواة بين نوعين مجهولين 


- لايمكن تغيير قيم الخصائص المفتاحية فهي دائما للقراءة فقط 
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- فقط الخصائص المفتاحية يتم تضمینها ضمن ال Hash Code‏ الذي يولده we piel‏ من أجل 


الأنواع المحهو له . 
المساواة Equality‏ 


تكون متغيرات الأنواع المجهوله متساويه عندما تكون متغيرات لنفس النوع المجهول ويقوم 


المعالج بمعاملة متغيرين كمتغيرين من نفس النوع إذا توفرت فيهما الشروط التالية : 
- تم التصريح عنهما في نفس المدى 50006 . 


- تمتلڪ خصاتئصهما نفس الاسم والنو e‏ وتم التصريح عنها (esa‏ الترتيب وتکون مقارنه elou Yi‏ 


غير حساسة لحالة الأحرف . 

- نفس الخصائص فيها محددة حکخصائص أساسية . 

- یمتلک كل نوع خاصية أساسية واحدة على الأقل . 

والتصريح عن نوع مجهول لایمتلک أي خاصية مفتاحية يكون مساويا لنفسه فقط . 


Partial Methods .10 


باختصار شدید » لم تعد OF!‏ مجبرا على وضع الفئة فى منطقة واحدة »› بل ان بامکانک 
كتابة الفئة في اكثر من موضع ۰ حيث يكفي ان تستخدم الكلمة Partial‏ في اسم الفئة لتدل 


على ان هذه ليس فئة جديدة بل هو يتبع فئة معرفة في مكان آخر . بالشكل التالي مثلا: 


partial class Car 


{ 
j 
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VB.NET ۱ کود‎ 





Partial Class Car 
End Class 
‘Partial Methods و لکن بعد ذلك ظهر موّخرا ما یعرف باسم‎ » net 2005 pas كان هذا مع‎ 


حيث لم تعد مضطرا لكتابة الدالة فى مكان واحد ایضا » يتم ذلك بالشكل التالی : 


Partial Private Sub methodname (ByVal parm As String) 


End Sub 


طبعا كما تلاحظ . افادنا هذا المو ضوع کنیرا في تطویر خصائص الفثات الاساسية ودوالها يدون 





الحاجه إلى تعريف نسخه جديدة منها. 


Garbage Collector 1‏ 
خلال دروسنا السابقة كنا نعرف متغیرات وفتات .. الخ ۰ ولکننا لم نسأل نفسنا كيف يتم 
تخزينها في الذاكرة ومتى يتم حذفها ۰ هذه الاسئلة سوف نجيب عليها في هذا الدرس من خلال 

مفاهيم ال Object lifetime‏ وال .GC‏ 
عند تعريفك لكائن من فئة OBJECT FROM CLASS‏ فانک بالواقع تصبح ممسكاً ب Refernce‏ 
يشير إلى هذا الکائن الموجود في ال heap‏ ۰ هذا ال reference‏ یو جد (ean‏ في stack‏ خاص 


بالبر نامج. 


بعد اغلاق البرنامج او انتهاء الدالة يتم حذف ال reference‏ من ال Stack‏ ۰ سیکون التساول 
الطبیعی هو انه وفى هذه ALAN‏ سوف تمتلی الذاكرة بمنات الکائنات التی لا تجد من يشير لها › 


يريحك ال garbage collector‏ والذي يرمز له اختصارا GC‏ من هذا التساؤل حيث يقوم بحذف 
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الفتئات غير المستخدمه . او فى الحقيقة فهو یقوم بحدذف arom‏ الفئات التي لم يعد بامکانک 
الو صول Led!‏ من UIS‏ البر نامج. 

فى ایام ال Ctt‏ كان من المفترض ان تقوم بحذف متغیراتک الغير مستخدمة اول بأول» اما الآن 
مع GC‏ فاصبحت جل المهام يتم تنفید‌ها دون ان تشعر . 

الحالة الاكثر le gud‏ هي ان تقوم بعمل —null‏ » في الواقع هذا لا يعطي اشارة مباشرة لل GC‏ 
لحذف حائنک من الذاكرة » لكنه سيتم حذفه فى لحظة ما لا یمکنک التحكم بها « عندما تمتلئ 


الذاکر 3 مثلا. 


GC Aiall .1 1 


تحتوي الفثة GC‏ على عدد من الداول التي تمکنک من التعامل المباشر معها ۰ هذه صورة 
من کناب 2008 oat Pro Csharp‏ ال و استخداماتها: 


sSystem.GC Member Meaning in Life 
AddMemoryPressure() Allow you to specify a numerical value that represents the 
RemoveMemoryPressure() calling objects "urgency level" regarding the garbage collection 


process. Be aware that these method should alter pressure in 
tandem and thus never remove more pressure than the total 
amount you have added. 

Collect() Forces the GC to perform a garbage collection. This method has 


been overloaded to specify a generation to collect, as well as the 
mode of collection (via the GCCollectionMode enumeration). 


CollectionCount( ) Returns a numerical value representing how many times a given 
generation has been swept. 

GetGeneration( ) Returns the generation to which an object currently belongs. 

GetTotalMemory() Returns the estimated amount of memory (in bytes) currently 


allocated on the managed heap. The Boolean parameter specifies 
whether the call should wait for garbage collection to occur 
before returning. 


MaxGeneration Returns the maximum of generations supported on the target 
system. Under Microsoft's . NET 3.5, there are three possible 
generations (0, 1, and 2). 

SuppressFinalize() Sets a flag indicating that the specified object should not have its 
Finalize() method called. 

WaitForPendingFinalizers() Suspends the current thread until all finalizable objects have 
been finalized. This method is typically called directly after 
invoking GC. Collect(). 


GC azan Jiga .1 .12 3 5 aM 
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:Finalize() 
له و تنفین يعض‎ overriding یمکنک هذا الحدث من اقتناص وقت حذف الکائن ۰ یمکنک عمل‎ 
يتم ذلك بالشکل التالی:‎ 


class example 


{ 
~example () 


{ 


Console.Beep(); 


Class example 
Protected Overrides Sub Finalize() 
LIV 
Console.Beep() 
Finally 
۷۷ 2ظ‎ 5 . ۳ 1۳211 26 )( 
End Try 
End Sub 
End Class 





Operator Overloading .12 


في الانواع الرئيسية لنا » نتستخدم المعاملات المختلفة لتنفین عملیات على الفئات المشتقة 
منها « فمثلاً المتغیر من نوع Integer‏ یفهم المعامل + على انه جمع 6 - على انه طرح ... الخ. 


ایضا المتغیرات من نوع 51110 تفهم المتغیر + مثلا على انه لدمج نصین i‏ وهكذا. 
الآن لو قمنا بعمل Structure‏ من نوع Point‏ بالشکل التالي مثلا: 


public struct Point 
{ 
private int x, y; 
publie Point (int XPOS, int yPos) 


= XPOS; 
= VPOS 
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VB.NET 


Public Structure Point 
Private x As Integer, y As Integer 
Public Sub New(ByVal xPos As Integer, ByVal yPos As Integer) 


xPos 
V = POS 
End Sub 
End Structure 





OF‏ جرب تعریف عدة نقاط « و استخدام المعامل + او — لجمع 9 طرح النقاط . ما تتوقعه ان 
تشاهد الناتج . 

عبارة عن طرح ال X‏ في النقطة الثانية من الأولى وكذا ال ¥ ۰ أو جمعهما las‏ الا انڪ في 
الواقع لن تحصل Cow‏ على رسالة خطأ تفيدك Structure Gb‏ المسمی POINT‏ لا يدعم معاملات 


الجمع والطر ح . 
OI‏ سنقوم باضافة معاملات جمع و طرح إلى ال Structure‏ السایق: 


puDlil8 struct Point 
{ 
private int x, y; 
puolic Point (int XPos, int yPos) 
{ 
X = XPOS; 
y oec EOS 
) 


public Static Forint operator T(Point pl, Point pz) 
i return new PolHL(plx T pZ.x, pl.y ع‎ p2.yv); J 
public static Point Operator —(Pornt pl, Point. p2) 
١ Qeturnu new POIOL(Dlix = D.X; DicV- TD Jg 
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Puolic Structure Point 
Private x As Integer, y As Integer 
Public Sub New(ByVal xPos As Integer, ByVal yPos As Integer) 
X = XPOS 


y = POS 
End Sub 


Public Shared Operator (ByVal pl As Point, ByVal p2 As Point) As Point 
Return New Point(pl.x + p2.x, pl.y + pZ.y) 
End Operator 


Public Shared Operator -(ByVal pl As Point, ByVal p2 As Point) As Point 
Return New Point(pl.x = p2.x, pl.y = p2s.y) 
End Operator 
End Structure 





OU‏ یمکنک كتاية كود بالشکل التالی: 
ڪو د | CH‏ 


Point- po = pL 4 p2) 


VB.NET ۱ 


pim po As Point = pL + p2 


ستحصل على النتيجة الصحيحة لعملية جمع ال Points‏ 
Ladi‏ یمکنک کتابة كود کالتالي مباشرة: 





VB.NET 


۳۶ 22 





آخر ما سنتعرف عليه في هذا الجزء من الدرس c‏ انك لن تکون قادرا سوی على تعریف Static‏ 


function‏ من اجل عمل oY overloading‏ معامل. 


ليست معاملات الجمع والطرح فقط من یمکن عمل overloading‏ بل یمکنک عمل ذلك CY‏ نوع 
من المعاملات c‏ فمثلاً ++ و -- في السي شارب فقط: 
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public SLaLies Point operator -T(Point pl) 
{ 


return new Point(pl.x ^ ly pl.y 4 1); 


) 
publie static Point Operator ——(Point pl) 


{ 
Leur new Polnt(ol = 1, pley = 1); 


} 





نفس الأمر بالنسبة لدوال المساواة وعمل == أو != حقيقية Jis‏ ما تعلمنا سابقا مع عمل 


Equals anau overriding‏ سنعتمد هنا على هذه الدالة بالشکل التالی: 


public override bool Equals(object o) 


{ 
return o.Tostring() == (This. lostring(); 


} 


public static bool operator -—-(Point pl, Point p2) 
{ 

return plEgualstoz); 
} 


publip 858236 bool operator !-[(PouinL pl, Point pa) 


{ 
return lpl.Eguals (62); 


} 


VB.NET 


Public Overloads Overrides Function Equals (ByVal o As Object) As Boolean 
Return o.Io5tring() = Mée.Tostring () 

End Function 

Public Shared Operator -(ByVal pl As Point, ByVal p2 As Point) As Boolean 
Return pl.Equals (p2) 

End Operator 

Public Shared Operator <>(ByVal pl As Point, ByVal p2 As Point) As Boolean 
Return Not pl.Equals (p2) 

End Operator 





و هکدا تجد ان یامکانک عمل T overloading‏ من هذه b, 7, ++, --, true, false‏ ,-, 


+ 
+, t, /, 3 &, La <4, 22 : المعاملات‎ 
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Pointers المو‌شرات‎ . 3 


إذا كنت مبرمج Ctt‏ » فأنت بالتأكيد تدرك معنی pointer‏ آما لو لم تكن کد‌لک. آما لو 
لم تكن كذلك فعلیک ان تعرف انه بالاضافة إلى ال value type‏ وال reference type‏ هناك 


ايضا ال pointer type‏ والتي تختص بالاشارة إلى اماکن معينة في الذاكرة. 


بداية أول ما ستعرفه انك لن تتعامل معها فى الکود الطبیعی ۰ بل ستضطر لاستخدام unsafe‏ 
code‏ لعمل ذلك حيث أن Gull‏ شارب لن تسمح لک افتراضیا بالتعامل مع ال pointers‏ لذا قم 
او لا بالسماح لنفسک باستخدامها بالشکل التالي: 


UnsafeCode* | Program.cs) T X‏ و 

| Application 

LL Configuration: | Active (Debug) ¥ Platform: | Active (Any CPU) ¥ 

| Build* 5 

| | General ^ 
Build Events giis 
Debug Conditional compilation symbols: ۱ 

Define DEBUG constant 

Resources 


Define TRACE constant 
Settings 
Platform target: Any CPU m 
Ref Path: 
"eeu Allow unsafe code 
signing E] Optimize code 


= 
r 





Errem ame saam aam mr 


CLE us | 1 


4 [. T 


| سس U‏ سح | p‏ 
الصورة 12. 2. تمکین استخدام خاصية ال Unsafe code‏ في المشرو ع. 


والآن من خلال الکود الخاص بك یمکنک کتابة كود یتعامل مع ال pointers‏ بالشکل التالي 


مكلا : 
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class Program 


{ 


static void Mainistrindg[l] args) 


{ 


unsafe 


{ 
// Work with pointer types here! 


} 


// Can't work with pointers here! 





OS‏ سنتعرف على الأدوات الأساسية التي ستعیننا على التعامل مع ال pointers‏ قبل ان نغوص في 


الأمثلة: 
الأدوات الاستخدام 
تستخدم لتعريف pointer‏ 


لمعرفة عنوان المتغير في الذاكرة 
تستخدم للوصول إلى حقل ما داخل الفثة التي يشير Led!‏ ال 


pointer 


التحرك ضمن الموشرات والمقارنه و خلافه. 





الجدول 12. 2. معاملات التعامل مع المو‌شرات في السي شارب. 
مع استمرارنا في هذا الدرس سوف تکتشف ان التعامل مع ال unsafe code‏ لن یکون بنفس سهولة 


العمل في Safe code‏ من SUS‏ سي شارب العادية . 
و لکن لماذا استخدم ال ٩ unsafe code‏ 


© آغراض تعلیمیه. 
© استخدامک لبعض ال dll's‏ او ال COM Components‏ التي Must heal‏ من خلال 
.pointers‏ 
© محاو Al‏ تحسین elal‏ و سر AC‏ مهمة معینة من خلال الو صو J‏ المباشر للذاكرة . 
في مشروع التخرج الخاص بنا وآثناء قراءة pixels‏ صورة ما oat‏ بعض عملیات Image‏ 


Bel pall الخاصة بالصور‎ SetPixel و‎ GetPixel كان بامكاننا استخدام دوال‎ Processing 
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والكتابة « ولكنها كانت لتكون عملية طويلة جدا للمرور على pixels2H‏ بهده الطريقة . الحل 
البديل كان باستخدام unsafe code‏ والتعامل مع ال pointers‏ مباشرة للمرور على ال pixels‏ 
الخاصه بالصورة 2 جرب مثلا ڪو د لطرح صورتین بالطر یمه GetPixel‏ و SetPixel‏ « 


و بعد هذه الدرس جربها مرة أخرى باستخدام pointers‏ و أخبرني بالفارق 
OI‏ سنعود مرة آخری لنشرح من البدابك... 


یمکنک OY!‏ تعريف pointer‏ بالشکل التالی: 


CH 





public Node* Left; 


ليس هذا فقط « بل بامکانک تعریف structure‏ او class‏ من unsafe ¢ sl‏ بالشکل التالي: 


public unsafe struct Node 
{ 
public int Value; 
public Node* Left; 
public Node* Right; 





أو دالة ایضا: 


unsafe static void SquareIntPointer(int* myIntPointer) 
{ 

// Square the value just for a test. 

*myIntPointer *= *myIntPointer; 





ولما كنا قد استخد منا prt il‏ یف المتغیر في البارمیتر ¢ Or)‏ سنرسل البار میتر باستخدام & 
بالشکل النالي: 


CH 


SquareIntPointer(&myInt2); 





n-»Value-5; 
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٩ VB.net وماذا عن‎ 


لو كنت مبرمج VB.net‏ فلن یمکنک الاستفادة من المؤشرات مباشرة ۰ ولکن توفر لک الفتة 
isti Marshal‏ لمجال الأسماء System.Runtime.InteropServices‏ محاكاة 
قريبة من عالم الموشرات ۰ لنفتر ض الکود التالي CH‏ : 

Bitmap bitmap = new Bitmap(this.BackgroundImage); 


unsafe 


{ 


System.Drawing.Imaging.BitmapData bmpData = bitmap.LockBits (new 
Rectangle(0, 0, bitmap.Width, bitmap.Height), 
ImageLockMode.ReadWrite, 


PixelFormat.Format32bppArgb); 
byte * pixel = (byte*) (void*)bmpData.Scan0; 
//the last syntax is equivalent to: 
//byte* pixel = (byte*)bmpData.ScanO.ToPointer(); 
pixel[0] e 
pixel += 4; 
pixel[0] 





سیتم تطبیقها في VB‏ بالشکل التالي : 


VB.NET 


bitmap As New Bitmap (Me.BackgroundImage) 
width As Integer - bitmap.Width 
height As Integer = bitmap.Height 
bmpData As System.Drawing.Imaging.BitmapData = _ 
bitmap.LockBits (New Rectangle(0, 0, width, height) 


, oystem.Drawing.Imaging.ImageLockMode.ReadWrite, 
PixelFormat.Format32bppArgb) 
System.Runtime.InteropServices.Marshal.WriteByte (bmpData.Scan0, 
bmpData. Stride, 255) 
System.Runtime.InteropServices.Marshal.WriteByte (bmpData.Scan0, 
bmpData.Stride + 4, 0) 
bitmap.UnlockBits (bmpData) 





. مع الشکر للأخ و لید صاحب المثال‎ FEE 
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Query Expressions . 4 


تعتبر ال Query Expressions‏ هی الخطوءة الاو لی والاساسية فى عالم LINQ‏ ۰ سنتعرف علیها هنا 
باختصار شدید كميزة جديدة من ممیزات 2008 Le net‏ سنؤجل باقی التفاصیل للفصو ل 
القادمة حینما fi‏ التعامل الفعلي مع قواعد البیانات. 


لنرى هذا المثال مثلا؛ 


from d in developers 
where d.Language =="C#" 
select d.Name; 


VB.NET 


From d In developers() _ 
Where(d.Language = "C#") — 
Select d.Name 


هذا بالضبط هو محتوی جملة الاستعلام التي تعودت على کتابتها سابقا بالشکل التالي في ال :SQL‏ 





SQL | ee 





Select name from developers where language = "C#" 


إذن لمادا هذا الشکل الجديد ٩‏ 


في السابق كنا نقوم بارسال جملة الاستعلام لیتم تنفید‌ها في قاعدة البیانات و تعود بناتج على 
شکل DataReader‏ أو مهما يكن OF! Lei c‏ اصبحت جمل الاستعلام جزء من محتویات اللغة التي 
تقوم ببر مجتها. 

لتعمل على LINQ‏ فلا يد من تورید مجال الاسماء هدا: 


using System.Ling; 
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VB.NET ۱ ye 





Imports System.Ling 


تعتمد ال LINQ‏ على ان قاعدة البیانات هي عبارة عن Array‏ أو أي جزء منها › لذا سنجرب بعض 


العملیات على ال Array‏ لنفتر ض الشکل التالي Mie‏ 


CH 


string[] userNames = ("Ahmed", "Ali","Mohammed", "Ahmed", "Ramy", "Khaled"}; 


VB.NET 


Dim userNames As String() = {"Ahmed", "Ali", "Mohammed", "Ahmed", "Ramy", 
"Khaled" } 


our‏ اذكرك كثيرا بأنني هنا لا اهتم ب LINQ‏ قدر ما اهتم بال Query Expressions‏ » الفارق 





هو ان الاولی خاصة بالتعامل مع قواعد البيانات بمختلف انواعها اما الثانية فهي تعلمك كيفية 


الكتاية فقط دون التطرق لخصائص قواعد البیانات 


هذه المصفو 49 قد تکون قاعدة بیانات ۰ قد تکون ملف XML‏ » قد تکون أي شىء آخر . الآن سنحاول 


بناء جملة استعلام لقراءة الاسماء التي تساوي "Ahmed"‏ 


CH 


IEnumerable«c«string» subset = from users in userNames 
where users == "Ahmed" orderby users select users; 


VB.NET 


Dim subset As IEnumerable - From users In userNames Where users - 
"Ahmed"OrderBy users Select users 


CH 


foreach (string s in subset) 
Console.WriteLine("Item: (0)", s); 


VB.NET 


For Each s As String In subset 
Console.WriteLine("Item: (0)", s) 
Next 
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یمکنک بالطبع استخدام اي دالة من CH Jiga‏ . لذا فالجملة التالية صحيحة لعرض الاسماء اطول 


TEnumerable<string> subset = from users in userNames 
where users.Length < 3 
orderby users 
select users; 


VB.NET ۱ Bree 


Dim subset As IEnumerable = From users In userNames Where (users.Length > 3) 
OrderBy users Select users 


ایضا قد M‏ تکون قادرا على معرفة نوع البيانات الظاهر ۰ خصوصا لو كنت تستعلم عن اکثر من 


حقل حيث ان الناتج لا بد ان یکون aa‏ هنا تظهر لنا فائدة ال var‏ أو ال Data Types s.o Dim‏ 





التي شرحناها سابقا ۰ ایضا ربما لا تعود جملة الاستعلام بنتيجة لذا سنستر جع هنا فائدة ال 


Nullable Types‏ والتی شر حناها ایضا فى درس سایق. 


طريقة آخری لکتابة هذه الجمل باستخدام Lambda‏ و سنتعرف علیها فى مر حلة قادمة. 


Preprocessor Directives .15 


is‏ ۱ خلال 23 5 2 < لل امج او للمشار یع الحاهر ô‏ آو حسی للادوات في بر نا محڪ ما get‏ على 
الشکل التالی مثلا: 





#region "Constructors" 
// a lot of code goes here. 
fendregion 


وكنت على حد علمک تعرف انها طريقة تلو ضع مجموعة من 1 $9 i6‏ ضمن 39202 معینة Coo‏ 


يتم فتحها و اغلاقها بسهو له لضمان عدم التشویش لک آثناء كتابتك الکود . إلا ان ما ستعر 43 في 
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هذا الدرس أن هذه ال Regions‏ و خلافها هی 4c gone‏ من ال Preprocessor Directives‏ التی 


ستتعرف. ts‏ 562253 فى..هذا اندر 


#region, f£endregion .1 5 


سکم عادة لتسيق فظير SiS‏ فى ملق الشغرة cate]‏ نک كه دكرنا شفک توا 
بالشكل التالي مثلا: 


#region "Class Employee" 


public class Employee 
| 
private string name; 
private string age; 
private string salary; 
public string name 
1 
get { return name; } 
set 1 name = value; } 
) 
public string age 
1 
get 1 return age; } 
set ( age - value; ) 
) 
public string name 
{ 
get { return _salary; } 
set { _salary = value; } 


} 


#endregion 





264 


net المتقدمة فى ال‎ Aagull 


VB.NET 


#Region "Class Employee" 


Public Class Employee 


Private name As String 
Private | age As String 
Private salary As String 


Public Property name() As String 
Get 
Return name 
End Get 
Set(ByVal value As String) 
name - value 
End Set 
End Property 


Public Property age() As String 
£i" 
Return . age 
End Get 
Set(ByVal value As String) 
age - value 
End Set 
End Property 


Public Property name() As String 
act 
Return | salary 
End Get 
Set(ByVal value As String) 
Salary = value 
End Set 
End Property 


End Class 





#End Region 
بحیث یکون کودك منظما بالشکل التالي مثلا:‎ c الآن یمکنک فتحها واغلاقها من الطرف‎ 
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الباب الثانى huc‏ 






























































| 7 WindawsFarmsApplication5.Forml 


$i 


—L—4 | 




















region "Collections" 
//! som code goes here 


Fendregion 


7T mom - aw ع‎ 
` 


region "Class Employee 
public class Employee 
i 





private string. name; 
private string age 
private string salary; 


public stri ng name 





| get [ return. name: | 
= ۱ set [ mame = value: (۳ 


۱ 


public string age 
get { return age } 
set [| ages value: ] 
} 


public string name 


get [ return | salary: ] 
sek | salary = value: } 





Project 


الصورة 12. 3. استعمال خاصية ال #region #endregion‏ 


gif, flelif, #else, 


#endif .2 15 


یطلق tee‏ اسم Conditional Code Compilation‏ . و تستخدم لتنفين اجزاء معينة من الکود فى 


حالات معينة فقط Wied.‏ لجعل جزء من الکود Y‏ يعمل فقط الا و قت ال Debug‏ و لیس کے وقت 
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#if DEBUG 
Console.WriteLine ("App directory: {0}", Environment.CurrentDirectory) ; 


( 
Console.WriteLine("Box: {0}", Environment .MachineName) ; 
Console.WriteLine("OS: (0)", Environment.OSVersion); 
Console.WriteLine(".NET Version: {0}", Environment.Version); 


#endif 


VB.NET 


"If DEBUG Then 
Console.WriteLine ("App directory: {0}", Environment.CurrentDirectory) 


( 
Console.Writebine ("Box: {0}", Environment.MachineName) 
Console..WriteLine("OSt 10)"; Environment.OsVersion) 
Console,.,WriteLine(",NEI Version: I0)", Environment.Version) 


tand If 





بنفس الطريقة یمکن استخدام else‏ و „elif‏ 
#define, #undef .3 5‏ 


تست‌خدم لتعریف Symbol‏ معین Mia c‏ یمکنک تعریف symbol‏ لل Debug‏ او یمکنک تعریف 
symbol‏ خاص بك بأي اسم ليتم استخدامه لاحقا » المثال التالي مثلا لتعریف Symbol‏ يعني ان 
هذا الکود يتم عمل Debug‏ له فقط على Mono‏ . 











"PreprocessorDirectives* | Car.cs! Progra mM 
| Application 
| Configuration: | Platform: | Active (Any CPU) 
| Build" 
Build Events eic E 
Debug Conditional compilation symbols MONO BUILD 
[¥] Define DEBUG constant 
Resources 


Define TRACE constant 


Settings 
| Platform target: Any.CPU Z = 



























































الصورة 12. 4. خصائص المشروع. اضافة رموز ترجمه إلى المشرو ع. 


GW dear ممعدكت كتاية کون‎ xa M 
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#define DEBUG 
#define MONO BUILD 


using System; 


namespace PreprocessorDirectives 
{ 
class Program 
{ 
statis void Main (string!) args) 


{ 


tif MONO BUILD 

Console.WriteLine("Compiling under Mono!"); 
#else 

Console.WriteLine ("Compiling under Microsoft .NET"); 
#endi f 


VB.NET 


#Define DEBUG 
#Define MONO_BUILD 
Imports System 
Namespace PreprocessorDirectives 
Llass Program 
Private Shared Sub Main(ByVal args As String()) 
*1f MONO BUILD Then 
Console.WriteLine("Compiling under Mono!") 
#2 215 
Console.WriteLine("Compiling under Microsoft .NET") 
Dim INDEXERS As n, OPERATORS As n, [AND] As n 
POINTERS Û 
#End If 
End Sub 
End Class 
End Namespace 
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XML Commenting 6 


في الواقع فان عمل Comments‏ للأكواد يعد آمرا في غاية الأهمية خصوصا في حالة 
المشاریع الكبيرة ۰ حيث تستطیع مراقبه كودك كما يستطيع اي شخص آخر بقلیل من الجهد 


p20‏ 48 كودك والاحمال عليه حتی و لو بعد توقفک عن العمل في نفس الکود بفترة Ab gl‏ جدا. 


Lee 9‏ عرفنا في بدایات هذه الدروس » يتم عمل ال Comment‏ بالشکل التالي 


CH 


// here we will do something, set x-startvalue 
x — FirstClass.Default(); 


VB.NET 


۲ here we will do something, set x-startvalue 
x — FirstClass.Default() 





الآن سنتعرف على طريقة جديدة » تمکننا من كتاية ال Comments‏ بآسلوب XML‏ يما يوفر Lit‏ 


Lil ja Bac‏ سنتعرف علیها خلال الدرس. 


ملا حظة 

من اوانل اللغات التي طبقت ada‏ الطريقة کانت Java‏ من خلال .javadoc‏ 

يتم ذلك بداية من خلال وضع / / / 0 بعد وضع هذه العلامة تستطیع وضع أي علامات خاصة E‏ 
للکود والذي سیتم التعامل مع لاحقا على أن XML‏ ما دام يطبق مبادئ XML‏ هناك مجموعة من 
العناصر القياسية التي یفضل استخدامها git‏ حید المفاهیم. 





لتحديد ان اللاحق Y‏ يد أن یعر ض بخط مختلف 
“Code‏ لتحدید ان تعدد الاسطر سیتم التعامل معه ککود 


«example»‏ تحدید متال لشرح الکود المکتوب 


 <exception>‏ الملف الذي يحتوي على الاستنناءات والأخطاء التی یمکن ان تنتج عن هذا 





269 


الباب الثانى عشر Aagull‏ المتقدمة فى ال net‏ 
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co‏ بار میتر معین 


Build; خیارات‎ 


رايط آخر لجزء آخر من Documentations!‏ 


و صف اجمالي للجزء المشروح 


الجدول 12. 3. a gug‏ تعلیقات ال XML Documentation‏ 
والآن» ما هي الفائدة التي ستجنيها إذا استخدمت هذه الطريقة بدلا من الطريقة التقليدية $85 


آو لا . جرب مثلا كتابة ما يلي لفئة الموظفين مثلا: 


<summary> 
Employee Class of the company 
</summary> 
partial class Employee 
{ 
/// <summary> 


/// 


/// </summary> 

/// <param name="Firstname">first name of the employee</param> 
/// <param name="Lastname">last name of the employee</param> 
/// <param name="age">age of the employee</param> 

public Employee(string Firstname, string Lastname, int age) 

{ 

) 





الباب الثانی عشر البرمجة المتقدمة فى ال net‏ 


VB.NET 


FE <summary> 
۲ ۲۲ Employee Class of the company 
۱ ۲۲ </summary> 
Partial Class Employee 

® summary 

Y ۲ ۲ 

rit </summary> 

<param name="Firstname">first name of the employee</param> 


Y ۲ ۲ 
۲۲۲ <param name="Lastname">last name of the employee</param> 
۱۲۲ <param name="age">age of the employee</param> 


Public Sub New(ByVal Firstname As String, ByVal Lastname As String, ByVal 
age As Integer) 

End Sub 
End Class 





9 جرب الآن عمل الکو د , لاحظ الصورة التاليك: 


class Program 
i 
static void Main(string[] args) 
{ 
Employee x"new Employee 1 
; Employee Employee (string Firstname, string Lastname, int age) 


} Firstar 





3552 12. 5. استعمال تعلیقات ال AML‏ 
هل لاحظت الفارق « اصبح الکود یظهر واضحا لباقي مبر مجي فريقت . اليس کل لک ٩‏ 
نقطة أخرى Documentation‏ 


Sc كاملة لمشرو‎ Documentation یمکنک اخراج‎ » Build ومن ضمن خيارات ال‎ EA 
وقم باختیار انتاج ملف‎ Build اعتمادا على هذه الوسوم › لذا من خصائص المشروع قم باختیار‎ 


XML‏ بالشکل التالي: 


2/1 


الباب الثانی عشر Aagull‏ المتقدمة فى ال net‏ 


























Application | 2 . 
١ Configuration: | Active (Debug) >| Platform: | Active (Any CPU) - 
| Build" ELM E GRÉ OEE 

Build Events neum S 
Debug Conditional compilation symbols: 

[4| Define DEBUG constant 
Resources 7 

iz! Define TRACE constant 
Services سسس‎ 

Platform target: | Amy CPU m | 

3 | [7] Allow unzafe code 
Reference Paths || Optimize code 
| 

Signing | Errors and warnings & 
Security | Warning level 4 - 
Publish | Suppress warming: 
Code Analysis | Treat wamings as 5 

&g Mone 

Specific warnings: 
All 
Output 
Output path: bin Debug | Perm | 
i4; XML documentation file: bin Debug ConsoleApplications. XML 





Documentation ضبط خیارات المشرو ¢ لبناء ملف ال‎ .6 .12 3 5 sal 
جرب الوصول لهذا الملف الذي قمت باختیاره. ستجد شيئا مثل هدا:‎ 


- 99557 ۳۵۲۱۵ s-"TrWbndewslormsApplicatienmt 1.Proapertios Aesources” = 
summary الصا كرد‎ hyped nisosnce class, for looking up localized) strings, ele, </summary> 
z/memb«er > 
- cmember name= Pi Windows Form s4p plication] 1 -Properties Resources ResoaunceManaqer: > 
Summary Returns the cached ResouroeManager Instance weed by this class. وت‎ > 
icf لاصو‎ = 
= geember flames" PF: Windows Forme Application 1 1 .Proportes Resources. Cultura” > 
ecoummary sOwerrides the current thread's CunrentülCulture property for all resourci IKiolkups using this strongly hyped mOseurce class. </summary> 
zrmaember > 
- mbar nams-"TazWimdewslorms/Applicationt1.Emgployae > 
dumma -Employes Class of the comapny < surly = 
ارب‎ maser ze 
member name z^MzWinadaowsFormsApplicationt 1.Ermployee.itctor System.String, System.String, System. Inia FF x 
۳0۲۲۵۲۱۵۲۷ تأ‎ 
qaram pace s*Firstnanmme"-dfitst name of the employee c param 
zparam fare Lastname last nama of the employee <param 
zparaem name-ageaqgie of thea ama playa = param» 
efmamber د‎ 
- gambe namez F;WindawsklaormsApplicationi 1. Formi components > 
“Summary Required designer variable, ci tummar = 
ty member + 
member name z^MzWindowsFormsApplicakiontL.Form L.EIspose( System. Boolean)" > 
summary Clean up amy resources belng used. < summan > 
qaram paene s^disposimg" strap id managed resources should Do disposed; otherwise, false. c par at> 
رد‎ mambser = 
- eter nama د‎ MiWinadewsl rns plication 1 1, Forra 1 Initialize Component” > 
تسد‎ -Busquibred methed for Designer support = da rot mocdihy the contents of this method with the cade editor, ما ار‎ > 
z/member د‎ 
- «member name=" M: Windows Forma pplication 1 L: Program. Main” > 
cumma >The main entry point for the application. «c; summary» 
xj mambser حت‎ 
zi mambesers > 
eld > 


الصورة 12. 7. ملف ال Documentation‏ الناتج. 
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anas‏ ثالثة Documentation‏ مرة آخری 


للاسف لا Visual Studio 2008 agp‏ اداة افتراضية لتحويل ال XML‏ السایق لصيغة 
مفهومة » لکن يمكن استخدام آداة مثل NDOC‏ لتحويل الملف السایق إلى مثل هذه الصور ة: 


[S9 Documentation Help AM: ۱ T I= o 
e o à & EF 
Hide Locas Back T Refresh Home Print Options 


" 
ronan 











An NDoc documented library 
Employee Members 
E Collapse All «| Members Options: Show All 





misrap 





| ۳ k This class represents an Employes. = 
5 E] Employee Construct: ||| The following tables list the members exposed by Employee. | 
= Employee Properties 5 E 
5 ها‎ Dec si rns 55 = Public Constructors | 
[E] GrveBonus Method Name Description 
m» 4 Employee Overloaded. Initializes a new instance of the 
Employee class. 


Top 


=] Public Properties 


Name Description 
Am Age Gets and Sets the Age. | 


الصورة 12. 8. برنامج ال NDOC‏ لتحویل ملفات ال Documetation‏ إلى ملفات مساعدة 
.(Help)‏ 


كل هذا فقط من ال Comments‏ 
یمکنک الوصل إلى نسخة على ال Sourceforge‏ من الرابط التالي : 


رابط هج 
http://ndoc.sourceforge.net/‏ 
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net Assemblies 7 


موعدنا هذه الفترة مع ال net assemblies‏ . لن تطیل فیها کنیرا و LSS‏ سنعرف النقاط الاساسية 


فیها فيما یمکنک الاطلاع على المزید عنها من خلال MSDN‏ 
7 لل namespace‏ 


في نفس ال namespace‏ یمکن لجمیع المکونات تحته ان تری بعضها البعض » لذا Legs‏ 


وفي مشاریعک الجديدة اجعل namespace‏ موحد لجمیع مکونات برنامجڪ 


namespace example 


{ 


Class someclass 


{ 


void method () 


Namespace example 
Class someclass 
Private Sub method() 


End Sub 
End Class 
End Namespace 





آما لو كان لدينا 443 ClassCar‏ فى namespace‏ باسم آخر. فلن یمکنک كتابة الکود التالی 
ضمن الدالة السايقة method‏ 


void method() 
{ 


classCar x = new classCar(); 


} 
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VB.NET 


Private Sub method() 


Dim x As New classCar() 
End Sub 





لکن Luise‏ عمل import‏ لل example‏ لتتمکن من تعریف الفثة بالشکل التالی 


using example; 
namespace example 
{ 
class someclass 
{ 
void method () 
{ 
) 


classCar x-new classCar(); 


VB.NET 


Imports example 
Namespace example 
Class someclass 
Private Sub method() 


End Sub 


Private x As New classCar() 
End Class 
End Namespace 





Default Namespace تغییر ال‎ 


Application 
— Configuration: [N/A -| Platform: [N/A >| 


Assembly name: Default namespace: 


P 


Namespaces fintertechTraining | 1 


| 
Target Framewark: Output type = 












































الصورة 12. 9. تغییر مجال الأسماء الافتراضي من خصائص المشرو ع. 
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Format of a .NET شكل ملف الاسمبلي‎ .3 7 
Assembly 


إذا قمت بفتح ملف الاسمبلي ب dumpbin.exe‏ متلا یمکنک ان تلاحظ أن مكلف الاسمبلي 


يتكون من العناصر التالية: 
Win32 file header‏ 


هنا ستجد معلومات عن نوع هذا الملف ۰ هل هو console‏ ام GUI‏ ام DII‏ 9 کيفية تنفيذه 


. التشغیل من ویندوز‎ alas على‎ 
CLR file header 


يحتوي على المعلو مات التی لا بد net application oY‏ ان يدعمها » يحتوي على طريقة 


ats‏ ال managed file‏ وو جود ال ۲650۱1۲665 من عدمه و خلافه. 


M‏ تهمک كثيرا المعلو مات السابقة للنقطتین السابقتین »2 لانک لن تتعامل معها سوی اذا ما كنت 


تحناج لبناء كو مبایلر خاص يك تحت tiun‏ عمل MET‏ . 


CIL code 


الکود الخاص ببرنامجک . يتم 3 جمته فورا باستخدام JIT‏ التی تحدخنا عنها سابقا » سیکون عنها 


دوس فل إن شاه All‏ 

Type metadata 

تحتوي على تفاصیل الانواع الخار جية التي تستخدمها في برنامجک. 
An assembly manifest‏ 


daa! 441‏ بين ملفات الاسميلى المختلفةهة c‏ تحدد اصدار الاسمیلی و SA‏ 43 . 
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Optional embedded resources 


اي ملف اسمبلي يمكن ان يحتوي على اي عدد من ملفات الریسورس تشیر إلى صور وایقونات 
و خلاقه . 


Private Assemblies .4 7 


ال Private Assemblies‏ ملف اسمبلی يعمل من خلال مسار البرنامج او التطبیق ۰ حیث لن یبحث 
ال Visual Studio‏ عن هذا الملف سواء فى الريجستري او فى أي مکان آخر ۰ فقط سیبحث فى 


مسار البرنامج عنه. 


فى حالة حذف برنامجك يتم حذف هذه الملفات deo‏ » ايضا يمكنك نقل التطبيق بعد عمل Setup‏ 


ملفات الاسمبلي الافتراضية او ال CI‏ التي تقوم بعملها هي من هذا النوع. 
Shared Assemblies .5 .17‏ 


هذا هو النوع الثاني » هنا لن تکون وحدك من يستخدم ملف ال dil‏ هذا . بل إن بامکان الملف 
التعامل مع اکثر من تطبیق على نفس الجهاز › System.Windows.Forms.dl Sis‏ « عادة ما 


تجدها في ملف الاسمبلي المو جود في oll‏ یندوز ولا يتم حدفها مع حذف بر نامجک. 


اول نقطة ستتعامل معها لانشاء ملف اسمبلي من هذا النوع هو ضرورة و جود اسم UNIQUE‏ لهذا 
الملف حتی لا یتضارب مع باقي الملفات الأخرى . آیام COMJI‏ كان هناك ما یعرف باسم COM‏ 
globally unique identifier (GUID)‏ حيث يتم اعطاء claw!‏ مختلفة لكل COM‏ جدید › OS‏ اصیح 


علیک اعطاءه ما یعرف باسم Strong name‏ والدي لا يعدو 4342 128 بت من الارقام تشتر ك 


المکو نات التالية فى نحدیده: 


© اسم ملف الا سمبلي. 
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e‏ نسخه ملف الاسمیبلی. 


AssemblyKeyFile -المو 42 35 في‎ public key value 


AssemblyCulture فى حالة و جود اي اعدادت اقليمية فى‎ ٩ 


public بين محتویات ملف الاسمبلي وال‎ hash يتم تكوينه باستخدام‎ Digital Signature 
.key 


م2 


لعمل public key‏ نستخدم البر SDK's 5۳.66 geb‏ بالشکل التالي مثلا: 


Command Prompt | ڪو د‎ 





sn K MyTestKeyPair.snk 


یمکنک ايضاً عمل ذلك مباشرة من خلال فیجوال ستودیو.نت من Properties page JUS‏ ثم 


.Signing 


18 المسارات المتعددة MultiThreading‏ 


18. 1. مقدمة 


تعرف نظم التشغیل الحديثة بآأنها Multitasking systems‏ وهو ما يعنى امکانية تنفين 
اکثر من مهمة فى نفس الو قت . لذا تجد أن یامکانک تشغیل عدة برامج فى نفس الو قت. 
برامج Net‏ من هذا gill‏ ع افتراضیا » لکنک تلاحظ في بعض البرامج ان البر نامج الواحد قادر على 


تنفین اكثر من عملية في نفس الوقت دون أن يكون Leg!‏ تأثير متعارض . هذا ما یعرف باسم 


.multithreading 


لذا تجد ان برنامج الماسنجر cca‏ لك ارسال ملفات والحدیث واستخدام الکامیرا والتحدث مع 
اكثر من شخص بنفس الوقت ۰ وهو ما لم يكن الماسنجر قادرا عليه لو لم يكن يفصل هذه المهام 
داخل البرنامج الواحد عن بعضها lids‏ هو مضمون درسنا الحالى. 
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huc till الباب‎ 


pä لذا‎ System. Threading تحت نطاق الاسماء‎ gai lia lasg التي سنتعامل‎ jglgill 2195 


ligi باستيراده‎ 





العناصر الاساسية داخل مجال الاسماء هذا هي: 


الو ۰ 
لتعريف Thread‏ جديد والتعامل معه 
مجموعة من ال Threads‏ يمكن لها التعامل فيما بینها 


111220 يحتوي على عدة حالات لأي‎ Enum 


بدء التنفید في Thread‏ 


تحدید او لوية هذا ال Thread‏ 





العنصر 
Thread‏ 
ThreadPool‏ 
Threadstate‏ 
Threadstart‏ 


ThreadPriority 


الجدو J‏ 12. 5. الفثات الرئيسية في مجال الاسماء System. Threading‏ 


بالاضافة الی: 


Semaphore 1 
Mutex 2 
Monitor .3 


وهي مجموعءه من خوار زميات الترامن التي سنتعرف علیها في الجرء التالي 


18. 2. خوارزمیات النزامن Synchronization‏ 


وهي في الاساس الجوریزمات تستخدم لعملیات التزامن Synchronization‏ بحيث لا يسمح 
لأكثر من Thread‏ بالوصول إلى نفس المصادر في نفس الوقت › لمزید من التعرف على هذه 


الالجوريزمات يمكن البدء من هنا: 


http://en.wikipedia.org/wiki/Semaphore (programmin 
http://en.wikipedia.org/wiki/Mutual exclusion 
http://en.wikipedia.org/wiki/Monitor (synchronization 
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الباب الثاني عشر Aagull‏ المتقدمة فى ال net‏ 


System. Threading. Thread .3 8 


الفثة الاساسية في مجال الاسماء هذا › تتيح لنا انشاء threads‏ وتنفين مهامنا المختلفة 
عليها » مكونات هذه الفتة الاساسية TE‏ 
المکون الو صف 
قيمة gi‏ ضح اذا كان ال thread‏ ما زال يعمل ام لا 


الاو لوية الحالية 


thread Ji اسم‎ 


توقف عمل ال thread‏ حتی حدوث الحدث في )( Join‏ 


بدء العمل للمرة الاو لی 





الجدول 12. 6. اهم خصائص و دوال الفثة Thread‏ 
سنقوم بداية بعمل تجرية سريعة للاستدلال على معنی ان يتم تنفید مهمتین في نفس الوقت › نعود 


قم بتجرية الكود التالي: 
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Static void Main(string[] args) 
{ 

orderlit)s 

oraera21)5 


Console.ReadKey(); 
j 
static void orderl() 
{ 
for (int i = 0; i > 100; i++) 
{ 
Console.ForegroundColor = ConsoleColor.Green; 
DLonsole.Wrireil.lootraungi() sS €" "s 
) 
} 
static void order2 () 
{ 
for (int i = 100; i» 0; i--) 
{ 
Console.ForegroundColor = ConsoleColor.Red; 
Console.Write(i.ToString() + " "); 


VB.NET 


Private Shared Sub Main(ByVal args As String()) 
orderli) 

5106122 0 

Console.ReadKey() 

End Sub 
Private Shared Sub orderl() 

For i As Integer = 0 To 99 
Console.ForegroundColor = ConsoleColor.Green 
Console.Wwrite(i.ToS5truing() + ک‎ ™) 

Next 

mmo sub 
Private Shared Sub order2() 

For i As Integer - 100 To 1 Step -1 
Console.ForegroundColor = ConsoleColor.Red 
Console. Write (1.,.Tostring(). + T Ww) 

Next 

Ena Sub 


الکود كما هو واضح يقوم بطباعة الأرقام تصاعدیا وتناز لیا . الناتج الطبيعي هو طباعة التصاعدي 





ومن ثم التناز لی ۰ فى حين يتم طباعة نتائج الدالة الأولی بالاأخضر والنانية pee Yh‏ للتفریق 
لتکون شاشة النتائج بالشکل التالي مثلا: 
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Em üle///C/Users/Ahmed/Documents/Visual Studio 2008/Projects/ConsoleApplication6/ConsoleAppiic... کاس‎ ea 





an‏ 5 3 12. 10 . نتانج التنفید. 


وهذا الطبيعى » يتم تنفيث الداله الأولى حتى الانتهاء ومن ثم الثانية حتى الانتهاء › آما O91‏ 
سنقوم بتعريف threads‏ مختلفة للتنفین بحيث يتم تنفيذ كل Alla‏ على واحد متها حيث سيتم 


تنفيذهم على البروسيسور فى نفس Cu aM‏ الكود التالى مثلا: 


Static void Main(sLring[] args) 
{ 

orderl() 3 

0 06 () ; 


Console.ReadKey(); 
Í 
static void orderl() 
{ 
for (int i = 0; i > 100; i++) 
{ 
Console.ForegroundColor = ConsoleColor.Green; 
Console.write(z,rostring() + "-wys 
} 
} 
static void order2() 
۱ 
for (int i = 100; i» 0; i--) 


{ 


Console.ForegroundColor = ConsoleColor.Red; 
Console.Wwrite(i.lIootring() + €" "5 
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VB.NET 


Private Shared Sub Main(ByVal args As String()) 
Dim tl As New System.Threading.Thread(orderl) 
EleStart() 

Dim t2 As New System.Threading.Thread(order2) 

EZeotart() 

Console.ReadKey )( 

End Sub 

Private Shared Sub order1() 

For i As Integer = 0 To 99 
Console.ForegroundColor = ConsoleColor.Green 
Console.Write(i.ToString() + " ") 

Next 

End Sub 

Private Shared Sub order2() 

For i As Integer - 100 To 1 Step -1 
Console.ForegroundColor = ConsoleColor.Red 
Console.Write(i.ToString() + " ™) 

Next 

End Sub 





الآن لنری طبيعة النتائح. 


Em file///C:/Users/Ahmed/Documents/Visual Studio 2008/Projects/ConsoleApplication6/ConsoleApplic...' 








الصورة 12. 11 . نتانج التنفید. 


بالطبع النتائج لن تکون كما هي كل مرة » جرب تغییر ال Mio Priority‏ لواحد منهم و جرب 
النتائج » ستجد أن صاحب الاو لوية الأعلى يتم الانتهاء منه قبل الثاني . الکود التالي مثلا: 


tl.Priority = System.Threading.ThreadPriority.Highest; 


VB.NET ۱ ود‎ 


tl.Priority = System.Threading.ThreadPriority.Highest 
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ستصبح النتائج بالشکل التالي: 









Em file///C./Userz/Ahmed/Documents/Visual Studio 2008/Projects/ConsoleApplication6/ConsoleAppilic... 


الصورة 12. 12. نتانج التنفید. 
ستجد اختلافات في التنفين » لکن الشاهد هو أن الکودین تم تنفیدهم سوية فى هذا الوقت. 


ملا حظة 
jglgill 2195‏ التي سنتعامل lasg‏ هنا gai‏ تحت مجال الاسماء System. Threading‏ لذا pa‏ 





ligi باستيراده‎ 


Priority الأولوية‎ .4 .18 


تحدد ال Priority‏ آو لوية التنفين عندما يتم ادخال ال threads‏ على البر و سیسور» حيث ان ال 


0 ذو الاو لوية الأعلى يحظى بعدد مرات تنفين » لتقریب المفهوم نفترض ان لدینا : 
1 مهمة 1 : اولوية قصوی. 
2 مهمة 2 : او لوية قصوی. 

في هذه الحالة يتم ادخال المهمة 1 للبرو سیسور. ثم ۰2 ثم 1 وهكذا. 

Lei‏ في حال کون مهمة 2 ذات او لوية اقل c‏ یکون الأمر بالشکل التالي: 

المهمة 1 . المهمة 1 » المهمة 1 . المهمة 2. المهمة 1 . المهمة 1 . المهمة 1 المهمة 2 ... 


و هکدا حتی الانتهاء من احد‌هما. 
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لیس هذا مکان شرح الجوریزمات البروسیسور. bod)‏ لو آردت الزيادة یمکنک البدء من هنا. حيث 


تجد عدة انواع من ال scheduling‏ : 


رابط هي 
http://en.wikipedia.org/wiki/Scheduling %28computing%29‏ 


نعود مرة آخری . لتحدید Priority‏ أي ege‏ لدينا نستخدم ال enum‏ التالی: 


public enum ThreadPriority 


{ 


AboveNormal, 

BelowNormal, 

Highest, 

Toe, 

Lowest, 

Normal, // Default value. 
TimeCritical 


Public Enum ThreadPriority 
AboveNormal 
BelowNormal 
Highest 
Idle 
Lowest 
Normal 
' Default value. 
I:rqmecritical 

End Enum 





ویصبح الکود بالشکل التالي مثلا: 


LlPriority — oystem.rIhreading.lhreadPrior3ty.Hrghest; 


VB.NET 


tl.Priority - System.Threading.ThreadPriority.Highest 


قبل البعد عن المواضیع الاساسية »2 لا تنسی ان بامکانک استخدام Sleep()‏ لایقاف التنفید 





لمدة» SUPPOSE‏ لایقاف مؤقت ... الخ من النقاط التي بدآنا بها شر حنا لهذا الدرس. 


285 


الباب الثانی عشر Aagull‏ المتقدمة فى ال net‏ 


ParameterizedThreadStart 
لها‎ Start () لعلک لاحظت في المنال السابق اننا نمرر الدالة ومن ثم نقوم يعمل‎ 


لتنفيذها فى thread‏ منفصل » لكن ماذا لو كانت هذه الدالة تستقبل بار میترات ٩‏ 





الحل بسیط » باستخدام ParameterizedThreadStart‏ بالشکل التالي مثلا؛ 
CH‏ 


Thread t = new Thread(new ParameterizedThreadStart (functionname)); 
Ls 5 6 (parms).; 


VB.NET 


Dim t As New Thread(New ParameterizedThreadStar(functionname)) 
51 325 632215 ( 


لو کنت نود اسنخدام alla‏ تعود Agia‏ فلا یمکن استخدام Th readStart‏ ولکن يمكن استخدار 





EndlInvoke() في‎ ailill وقراعة‎ BeginInvoke () 


Foreground and background 





هناك نوعان من ال :threads‏ 


:Foreground Thread‏ هذا يعني ان البرنامج لا يمكن ان يغلق حتی يتم الانتهاء من تنفید 
جمیع ال Foreground threads‏ المو جودة فيه » النوع الافتراضي thread CY‏ تقوم بانشاءه هو 


Cad * 


من هذا النو ع. 


:Background Thread‏ هذا يعني ان البرنامج یمکن ان يتم اغلاقه حتی لو لم يتم تنفید 


كافة ال background threads‏ » يتم عمله بالشکل التالي مثلا: 





e | كود‎ 
t.IsBackground = true; 
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VB.NET ۱ ae 





t.IsBackground = True 


Threads Synchronization .7 .18 


عندما تعمل مع ال uni Mà Threads‏ يضمن Yi‏ بحصل تداخل بين مسارات عملت 
المختلفة. لذا تم ایجاد ما یعرف ب Synclock‏ والذي يطبق مبادئ التزامن QAM‏ اشرنا Led!‏ 


مختصرا في درس سابق . 


يتم استخدام oyncLock..End SyncLock‏ والتي يتم تضمین الکود داخلها كي لا يحصل أي 
تداخل » حیث تقوم باغلاق مصادر هذا المسار و لا تسمح sY‏ کود في نفس محال الأسماء بالتداخل 


الا بعد الانتهاء ۰ بالشکل التالی مثلا : 


lock (myLlock) 

{ 
ror | | 1 x= 10007 a+) 
{ 


Console.WriteLine(i.ToString()); 


} 


Console.Write (number); 


SyncLock myLock 
For 1 = 0 To 1000 
Console.WriteLine(i.ToString()) 
Next i 
Console.Write (number) 
End SyncLock 





حيث لن یسمح CY‏ مسار يستخدم المتغیر MYLOCK‏ ان يعمل الا بعد انتهاء حلقة التکرار و آمر 
الطباعة آیضا » لذا قم بوضعها في کل مکان تخشی أن یحصل فيه تداخل لقيمة المتغیر number‏ 
ثلا . 
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یمکنک معرفة المزید عن التزامن في المسارات من الدرس التالي - باللغة العربية - : 


رابط هج 


http://vb4arab.com/vb/showthread.php ?t=6341 


ThreadPool 5 83 


بحيرة المسارات - إن صح التعبير — هي البديل لكثرة المسارات في برنامحک و ما تتسیب 
يه من تشويش في البرنامج والكثير من الخلط يسبب أوامر التزامن والمصادر وخلافه 0( يتم ذلك 
يتكوين محموعه من المسارات المشتر که » ويكون ذلك أكثر افادة في حالة المسارات التى Y‏ يتم 


تنفيذها بکثرة في البرنامج : 


ror (int a = Le 3 ۶ i++) 


IhreadPool.QueueUserWorkItem(sometask.Execute); 


VB.NET 


For i As Integer = 1 To 5 
ThreadPool.QueueUserWorklItem(AddressOf sometask.Execute) 
Next 





یمکنک معرفة المزید عن هذا الموضو ع من خلال الدرس التالي — باللغه العربیه - : 


رابط $9 


http://vb4arab.com/vb/showthread.php?t-6340 


BackgroundWorker .9 9‏ 
تستخدم ال BackgroundWorker‏ لتنفين Lege‏ معينة Sa slo Li 9 ALD‏ بدا عن المسار 
الاساسي للبرنامج « من أمثلة ذلك الدوال الخاصة بالقراءة من Web service‏ أو عملیات معالجة 


الصور او جلب بعض البیانات من حومبیوتر آخر أو تنفید عملية بحث . او اجراء مجموعة من 
العملیات طويلة الامد. 
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ومع آنک كان بإمكانك عمل هذه الدوال عن طریق تنفید‌ها في thread‏ تقليدي › إلا أن 
BackgroundWorker‏ تعطیک مزید من التحکم › ببساطة یمکنک اخباره ال بالدالة التي 
ترغب في تنفيذها ومن ثم تشغیلها عن طریق Pert RunWorkerAsync()‏ بعد انتهاء التنفين 
يتم RunWorkerCompleted Gus sad‏ والتي يمكنك فيه مثلاً عرض النتائج بعد انتهاء 
تنفيد هده المهمه. 


for (ine 1 = ls i «— 5$ i++) 


IhreadPool.QueueUserWorklItem(sometask.Execute); 


For i As Integer = 1 To 5 
ThreadPool.QueueUserWorklItem(AddressOf sometask.Execute) 
Next 


للبدء بالعمل قم بعمل Windows Form‏ ۰ قم برسم بعض الادوات ومن ثم ضع زر امر للبدء 


بتنفین المهمة gc‏ اخیرا قم بسحب آداة BackgroundWorker‏ بالشکل التالی Mie‏ 












d BackgroundWorker 
135 BindingNavigator 
| Tj BindingSource BindingMavigator 
Button Version 2.0.0.0 from Microsoft ۲ 
CheckBox WET Component 
CheckedListBox 
(S| ColorDialog 
A ComboBox 
۲۶ ContextMenuStrip 
d DataGridView 
ai) DataSet : : 
T ParenmePicker TT [prm 


۳ | Die eta mm L mtem z 














Specifies support for transacted initialization. 


BackgroundWorker الأداة‎ .12 .12 355 


آهم دالتین هما هنا DoWork‏ والذي يتم اسندعاءه وقت بدء Om‏ : والحدت 


RunWorkerCompleted‏ والذي يتم اطلاقه بعد الانتهاء من التنفین بالشکل التالي مثلا: 
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private void ProcessNumbersBackgroundWorker DoWork(object sender, 
DoWorkEventArgs e) 

۱ 

) 

private void ProcessNumbersBackgroundWorker RunWorkerCompleted(object sender, 
RunWorkerCompletedEventArgs e) 

{ 

) 


VB.NET 


Private Sub ProcessNumbersBackgroundWorker DoWork(ByVal sender As Object, ByVal 
e As DoWorkEventArgs) 

End Sub 

Private Sub ProcessNumbersBackgroundWorker RunWorkerCompleted(ByVal sender As 
Object, ByVal e As RunWorkerCompletedEventArgs) 

End Sub 


CH 


ProcessNumbersBackgroundWorker.RunWorkerAsync (args); 


VB.NET 


ProcessNumbersBackgroundWorker.RunWorkerAsync (args) 





حیث يتم تنفين الکود المو جود فى الحدث DOWOrK‏ . 
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الادخال و الاخراج فى 


„net System. IO 


الادخال و الاحراج ua‏ ال Net‏ 


الباب الثالت pue‏ 


1. الفنات الاساسية فى 10 System.‏ 





الفثة الو صف 
l BinaryReader‏ ۱ 
تتیح لک قراء2 و کتابة بیاناتک على شکل Binary Files‏ 
BinaryWriter‏ 
BufferedStream‏ مخزن موقت تلبیانات Buffer‏ التی یمکن أن (gas pts ARD‏ 
Là Y‏ إلى الذاكرة 
Directory‏ 
مختص بالتعامل مع المجلدات و المعلو مات المتعلقة بها 
Dir CLOTTING‏ 
0۵ مختص بالتعامل و معرفة المعلو مات عن و حدات التخزین فى 
جهاز Driver «t‏ 
File‏ 
مختص بالتعامل مع الملفات و کل ما یتعلق بها 
و ۰۳۱ ۳ 
FileStream‏ يمكنك من الو صول تلملفات و عرض البیانات على شکل 
T e cm‏ 
FileSystemWatcher‏ مراقبة ملف of‏ مجلد واخبارك بالتعدیلات التی تطرأ عليه 
Path‏ مختص بالتعامل مع المتغیرات النصية لتحویل المسارات إلى 
صور ۰ "La‏ ظام ا فيا 
StreamReader‏ 
القر ael‏ و الکنابه إلى الملفات بصورة نصیه 
otreamWriter‏ 
17 51521211016 نفس السابق ۰ فقط مع اختلاف ان ال Reader‏ وال Writer‏ يتم 
StringWriter‏ انشاءه من ال SEA TE TO‏ 


System. 10 claws! مجال‎ Glia الجدول 13. 1. آهم‎ 


هناك فئات اخری فى هذا المجال من الاسماء . و لکن هذه هی آشهر ها وأكثرها استخداما. 
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DirectoryInfo g Directory yu العوارق‎ 2 


الفارق الأساسي هو في ال structure‏ الخاص بها ( Gum‏ ان Directory‏ مشتقة مباشرة 
من Object‏ اما DirectoryInfo‏ فهي مشتقة من FileStreamInfo‏ المشتقة بدورها 
من ال 01661 . اما الفارق في التعامل فهو ان الفئة Directory‏ تعرف دوالها من النو ع 
Gums Static‏ یمکن استخدامها مباشرة › اما مع 11۳10 160101۷ فالامر مختلف Co‏ 


يتطلب الامر تعریف نسخة قبل استخدام الدوال. 
نفس الامر Gilets‏ بالتبعية على الفرق بين File‏ و... 1161۳۴0 ۲ 


Me‏ الفئتین DirectorylnfOo‏ و Pilelnfo‏ تحمل معها الخصائص الاساسية ل 
Pi leStreaminfo‏ اضافة لخصائص التعامل مع الملفات والمجلدات » وهي: 


الخاصية الو صف 


قراءة و كتابة تاريخ الانشاء 


قراءة وكتابة آخر تاريخ للدخول على الملف او المجلد 


معرفة اسم الملف آو المجلد 





الجدو ل 13. 2. الخصائص المشتركة. 
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DirectoryInfo Aidll [3 


اضافة لاحتواءها على الخصائص السابقة من Fi leStreamInfo‏ تحتوي هذه الفئة 


على الدو ال التالية: 


الدالة أو الخاصية الو صف 


Create()‏ انشاء مجلد او مجلد فرعي في المسار المحدد 


CreateSubdirectory() 


Delete )(‏ حدف المجلد و کامل محتویاته 


GetDirectories )(‏ تعيد مصفوفة من الاسماء تو ضح اسماء المجلدات الفرعية 
wai GetFiles()‏ مصفوفة Array‏ من 1161710" تحتوي على كافة 
ga MoveTo()‏ المجلد وكافة محتویاته إلى مکان جدید 


Parent‏ معر 49 المجلد الااكبر من هذا المحلد 





ROOT‏ لمعرفة ال Driver‏ الخاص بهذا المجلد 
الجدول 13. 3. aaj‏ خصائص و دوال SALAM‏ 
قبل البدء . انت بحاجة لتعریف نسخة من هذه الفئة » یمکنک تمریر المکان الذي تود البدء منه 
في المشید Constructor‏ بالشکل التالي مثلاً (لمسار البرنامج) : 
CH‏ 


DirectorylInfo dirl = new DirectoryIntfo("."); 


VB.NET ۱ کود‎ 
Dim dirl As New DirectoryInfo(".") 


CH 


DirectoryInfo dirl = new DirectoryInfo("C:\Ahmed"); 


VB.NET 


Dim dirl As New DirectorylInfo("C: \Ahmed") 
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grrr‏ گنت مبرمج سي شارب فلا بد من عدم وضع Y‏ وحدها داخل علامات التنصيص OF‏ لها 
استخدامات آخری مثل ۱ ۱۲ و خلافه ۰ لکن یمکنک تحدید نوع البیانات بالداخل بأنها مباشرة 


عن طریق اضافة 8 بالشکل التالي مثلا: 


CH 


DirectoryInfo dirl = new DirectorylInfo(@"C: \Ahmed") ; 





لیس فقط بامکانک | daa‏ مع مجلد موجود » بل یمکنک الربط إلى مجلد غير 39254 ومن ثم 


انشاءه: 


DirectoryInfo dirl = new DirectoryInfo(@"C: \Ahmed\Test"); 
dirl.Create(); 


VB.NET 


Dim dirl As New DirectoryInfo("C:MAhmedNTest") 
dirl.Create() 





یمکنک انض استعراض کافة الملفات داخل sleet!‏ 
CH‏ 


FileInfo[] imageFiles = dir.GetFiles(); 


VB.NET 


Dim imageFiles As FileInfo() = dir.GetFiles )(‏ 
یمکنک استخدام خصائص 61011710 ]5 165۷ 1 التي تحتوي على كافة المعلومات المتعلقة 
بالمجلد. فمثلا لعرض تاريخ انشاء المجلد: 





CH 


Console.WritenLine(dairl.CrestronTime); 


VB.NET 


Console.WriteLine(dirl.CreationTime) 

او یمکنک استعراض ملفات من نوع معین فقط Wis.‏ لاستعراض ملفات الصور فقط GIF‏ ومن ثم 

کتابتها . لا تنس ان الناتج من نوع 1161110 ویمکن تطبیق خصائص ٩16101110‏ 11657۷ ۲ 
علیها. 
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using System; 
using System.Collections.Generic; 
using System.Ling; 
using System.Text; 
using System.IO; 
namespace ConsoleApplication7 
1 
class Program 
{ 
static void Main(string[] args) 
{ 

DirectoryInfo dirl = new 
DirectoryInfo(@"C:\Users\Ahmed\Documents\Visual Studio 
Z008 \WebSites \WebSite4") > 

FileInfo[] imageFiles = dirl.GetFiles("*.gif"); 

foreach (FileInfo f in imageFiles) 

{ 

Console.WriteLine("Name: {0} - Creation Date: 
f.Name, f.CreationTime); 

] 

Console.ReadKey(); 


VB.NET 


Imports System 
Imports System.Collections.Generic 
Imports System.Linq 
Lmports 5ystem.Text 
Imports System.lo 
Namespace ConsoleApplication?7 
Class Program 
Private Shared Sub Main(ByVal args As String()) 

Dim dirl As New DirectoryInfo("C:NUsersMAhmedNDocumentsNVisual 
Studio 2008XWebSiLtesWNWebSited4") 

Dim imageFiles As FileInfo() = dirl.GetFiles("*.gif") 


For Each f As FileInfo In imageFiles 
Console.WriteLine("Name: (0) - Creation Date: {1} . " & Chr (10) 
& "V &.Chr(l0) & "", f.Name, t.Credgtrionraxme) 
Next 


Console.ReadKey )( 
End Sub 
End Class 
End Namespace 





الناتج سیکون بالشکل التالي مثلا: 
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الباب الثالث pc‏ الادخال و alll‏ فى ال net‏ 


Em mm‏ م سد n x = — a = = MC‏ = سح عد mm: E m:‏ تست ور 
a om‏ سس وت a RÀ = T‏ 


Ales EE Ahmed Documenta Visual Studio ZOUS/Proyectu t onscseAppcation /LónsoleApplie 


dame: hac 5ع‎ 11 Creation IEIEISUAI-. 2 رد اج‎ PA 


faloe gif Lreaétion Data: Tun urs 2516512 PA 
۳۸5 6 1۲ = Creation Date: يم رید‎ 221846 PA. 
score لق‎ Crestion Date: S722 7288S 2:16:12 FA 
Start.gif — Creation Date: 67172088 S:47:51 PA. 


start? .qif Creation Date! 6/1/2888 5:59:17 PH . 


trug. GIF = Creation Pate: ری‎ rss اد وا اد‎ PA. 





الصورة 13. 1. نتائج تنفين البرنامج على الشاشة 


4 التعامل مع Aiàll‏ 


لا شىء جديد» فقط ستفقد الخصائص المتاحه من JUS‏ الفئه و cr‏ 
المقابل لن تکون محتاجا لتعریف نسخة قبل البدء بالعمل c‏ لذا یمکنک العمل على الفثة مباشرة 
بالشکل التالی Mis‏ لعملية الحذف 


CH 


System.IO. .Delete (@"C: \ahmed") ; 





System.IO.Directory.Delete("C:Nahmed") 
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الباب الثالث عشر الادخال و الاخراد فى ال net‏ 


د. التعامل مع DriveInfo Aidl‏ 
تتیح لک هذه ALAM‏ استعراض ال Drivers‏ في جهازك ومعرفة بعض المعلومات عنها . هذا 


المثال مباشرة من کتاب 2008 :Pro.CSharp‏ 


Console.,WriteLine("^**** Fun with Drivelntfo *****\n")> 
// Get info regarding all drives. 
Drivelnfo[] myDrives = DriveInfo.GetDrives(); 
// Now print drive stats. 
foreach (DriveInfo d in myDrives) 
{ 
Console.WriteLine("Name: {0}", d.Name); 
Console.WriteLine("Type: {0}", d.DriveType); 
// Check to see whether the drive is mounted. 
if (d.IsReady) 
{ 
Console.WriteLine ("Free space: {0}", d.TotalFreeSpace) ; 
Console.WriteLine("Format: {0}", d.DriveFormat); 
Console.WriteLine("Label: (0)", d.VolumeLabel); 
Console.WriteLine(); 
) 
) 


Console.ReadLine(); 


VB.NET 


Console.WriteLine("**"*** Fun with Drivelnro *****" & CRE (LO) 


۲ Get info regarding all drives. 


Dim myDrives As DriveInfo() = DriveInfo.GetDrives() 

۲ Now print drive stats. 

For Each d As DriveInfo In myDrives 
Console.WriteLine("Name: (0)", d.Name) 
Console.WriteLine("Type: {0}", d.DriveType) 

۲ Check to see whether the drive is mounted. 
If d.IsReady Then 
Console.WriteLine("Free space: (0)", d.TotalFreeSpace) 
Console.,WriteLine("Formast: 10)", d.DrivePFormat) 
Console.WriteLine("Label: {0}", d.VolumeLabel) 
Console.WriteLine() 
End IT 
Next 
Console.ReadLine() 





300 


الباب التالث عشر الادخال و الاخراج فى ال net‏ 


FileInfo Aidl التعامل مع‎ 6 


: - ال الر ثيسية في هذه الفئة - اضافة بالطبع للخصائص العادية‎ gull 


الخاصية او الدالة الو صف 





StreamWritter elas AppendText )(‏ للكتابة في الملف 
CopyTo )(‏ نسخ الملف 
Create ()‏ انشاء ملف واعادة کائن FileStream‏ 
CreateText )(‏ انشاء aust StreamWriter‏ في الملف 
zm Delete )(‏ 
Directory‏ 4,20 اسم المجلد 
DirectoryName‏ 44,20 مسار المجلد 
Length‏ معرفة حجم الملف 
MoveTo ()‏ النقل ۰ یمکنک تحدید اسم جدید للملف المنقول 
6 اسم الملف 
Open )(‏ فتح الملف مع امكانية القر Sel‏ والكتابة و خلافه 
OpenRead )(‏ فتح الملف للقراءة فقط 
OpenText ()‏ فتح الملف باستخدام StreamReader‏ 
OpenWrite ()‏ فتح الملف للكتاية فقط 
الجدو aaj .4 .13 J‏ خصائص و دوال الفئة. 
(ieee‏ عن خواص StreamReader‏ والتي سنتعرف علیها تسا في جزء لاحق من هذه 


NEXU مسرت على تاک‎ gy 
: Create )( لانشاء ملف مثلا باستخدام‎ 
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الباب الثالث عشر الادخال و الاخراد فى ال net‏ 


751151123: T = ter 211612526 (OTO Test EEE 
FileStream fs = f.Create(); 


VB.NET 


Dim f As New PLllelnfto("C:XISSE.EXE") 
Dim fs As FileStream = f.Create() 





M lacis‏ تنس أن بامکانک استخدام أي من الخصائص الموجودة في 5161011710 ۳1165۷ كما 
سبق » فقط الخاصية Attributes‏ هي خاصية مميزة legs‏ ما حيث تشمل عدة تفاصیل » حيث 
یمکنک من خلالها تحدید اذا كان الملف مخفي ام ظاهر › للقراءة فقط ... الخ. 

مثلا لمعرفة هل الملف مخفي أم لا ؟ 


if ((File.GetAttributes(path) & FileAttributes.Hidden) 
FileAttributes.Hidden) 
{ 


} 


VB.NET 


If (File.GetAttributes (Path) And FileAttributes.Hidden) = FileAttributes.Hidden 
Then 


End It 


File.SetAttributes(path, File.GetAttributes(path) | FileAttributes.Hidden); 


VB.NET 


File.SetAttributes(path, File.GetAttributes(path) Or FileAttributes.Hidden) 
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الباب الثالث عشر الادخال و الاخراد فى ال net‏ 


انشاء و فتح الملفات باستخدام () Open‏ 


الكود التالي ستجد اننا نستخدم الداله () Open‏ مع الخاصيه 
RA‏ . ۱6006 1" وهي ما تفید انه لو وجدت الملف قم بفتحه . لو لم تجده قم 
بانشاءه: 


PlleIlsfo £2 = new Pilelnfo(B"CtATSOBEZ.EREU); 
FileStream fs2 = f2.O0pen(FileMode.OpenOrCreate, FileAccess.ReadWrite, 
FileShare.None); 


Dim £2 As New Pilelnfo("GC:XTOeStZ.txt") 
Dim fs2 As FileStream = fZ.Open(FileMode.OpenOrCreate, FileAccess.ReadWrite, 
FileShare.None) 





هناك حالات آخری آیضا لفتح و انشاء الملفات: 
الحالة الو صف 


قم بانشاء ملف و لو و جدته قم بانشاءه 699 المو جود 


فتح الملف لو كان موجود أو انشأه لو لم يكن موجودا 


قم بفتح الملف وانتقل لآخره cut‏ عملية الكتابة 2 لو لم يكن الملف 


موجودا قم بفتح و احد جديد والبدء بالكتابة من آو له c‏ عموما هي Y‏ 
تظهر في حالة الفتح باستخدام Open‏ وانما فقط في حالة 





OpenWrite 
.Filelnfo الجدول 13. 5. الدوال الخاصة بالفئة‎ 


ال FileAccess‏ ایضا له ثلاث حالات مجموعة فى هذا ال enum‏ 
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الباب الثالث عشر الادخال و الاخراد فى ال net‏ 


public enum FileAccess 


{ 


Read, 
Write, 
Readwrite 


Public Enum FileShare 
None 
Read 
Write 
Readwrite 
End Enum 


aia .2 .6‏ و chuil‏ الملفات باستخدام )( OpenRead‏ و 
OpenWrite ()‏ 





مثل ما سبق . عدا انك ستکون Lojto‏ بنوع واحد فقط من العملیات. 
aia .3 6‏ الملفات باستخدام () OpenText‏ 
الفارق الوحید هو ان القيمة المعادة تکون من نوع StreamReader‏ ولیس FileStream‏ 


بالشکل التالي مثلا: 


pilelnto £5 = new Filelnfo(B"C:Xboot.inri"); 
StreamReader sreader = fb5.OpenText(); 


VB.NET 


Dim r5 Ae New FilelHnfot"O:iboort.1inzx") 
Dim sreader As StreamReader = f5.0penText() 
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الباب الثالث عشر الادخال و الاخراج فى ال net‏ 


aiall .4 6‏ باستخدام CreateText()‏ و 
AppendText )(‏ 


مثل السابقة » الفارق فقط یمکن ان القيمة المعادة ستکون من نوع .StreamWriter‏ 


7 . التعامل مع File Aidl‏ 
نفس ما ذکرنا في حالة المجلدات ۰ لن تکون مجبرا على تعریف نسخة منها نظرا لانها 
Static‏ بل یمکنک العمل علیها مباشر ة. 
هناك دوال آخری جديدة في الفتة لعملیات القراءة والكتابة هي: 
الدالة الو صف 
ReadAllBytes ()‏ قراءة البیانات على شکل array of bytes J 4a»‏ 


ReadAllLines ()‏ قراءة البیانات على شکل مصفوفة من الاسطر 


ReadAllText ()‏ قراءة جمیع البیانات كتلة و احدة 


byte by byte ans WriteAllBytes () 
اسطر‎ JSS الکتابة علی‎ WriteAllLines )( 


xis WriteAllText()‏ ككتلة و احدة 





الجدول 13. 6. بعض الدوال الخاصة بالفئة „File‏ 


ویمکن استخدامهم بالشکل التالي Wis‏ - من کتاب 2008 ۴۲۵5۳۵۲۵ 
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الباب الثالث عشر الادخال و الاخراد فى ال net‏ 


۱ 


InitializeComponent( 
string[]l myIasks = { 


"Pix bathroom sink", "Call Dave", 
"Call Mam and Dad", “Play Xbox 260" 
); 
// Write out all data to file on C drive. 
File.WriteAllLines (@"C:\tasks.txt", myTasks); 
// Bead it all back and print out, 
foreach (string task in File.ReadAllLines (@"C:\tasks.txt") ) 
{ 
Console.WriteLine("TODO: {0}", task); 
f 


VB.NET 


Dim mylasks As SEEING), = (FFI bathroom sink", "Call Dava"; "Call Mom and 
Dau", "Play OOK SOU) 
۲ Write out all data to file on C drive. 
File.WriteAllLines("C:Ntasks.txt", myTasks) 
۲ Read it all back and print out. 
For Each task As String In File.ReadAllLines("C:Ntasks.txt") 

Consoles WriteLsine("TODOs 10)".. task) 





Next 
معلو مه اضافية‎ 
ان نقوم بتعریفها في مکان‎ [Disposable یمکن للفثة اذا كانت تنجز الواجهة‎ ۰ .net في‎ 
ومن ثم حذفها خارج هذا النطاق بالشکل التالي مثلا:‎ 


using (CarClass newCare) 


{ 


۰ do operations 


} 


VB.NET 


Using newCare As CarClass 
۲ do operations 
End Using 


لذا سنحاول استخدامها ايضاً مع الملفات حتی لا تبقی معلقة في الذاکرة بالشکل التالي مثلا: 





۲ 1161۳۴0 f = new FileInfo(@"C:\test.txt"); 
using (StreamReader reader = f.OpenText ()) 


{ 


// code here 





} 
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الادخال و الاخراد فى ال net‏ 


Dim f As New Filernfo("CribEeBE.Ltxt") 
f.OpenText () 


Using reader As StreamReader - 
' code here 
End Using 


الباب الثالت pue‏ 





Stream 8‏ 
ال Stream‏ يقصد به تدفق او نقل البیانات ما بين مصدر و مستقیل سواء ڪان ذلک بين 
ملفین او بين جهازین على الشبكة أو طابعة أو خلافه . حيث يتم نقل البیانات في الغالب على شکل 

sequance of bytes‏ حتى نهاية الملف أو البيانات. 


في .net‏ » هناك الفئة System.IO.Stream‏ والتى تعتبر Atal‏ الم التى سنتعامل مع غالب 


فتاتها لاحقا ۰ تحتوي هذه الفئة على الدوال والخصائص الرئيسية التالية 


الو صف 


الخاصية أو ANAS)‏ 





خصائص تتيح لك معرفة إذا كانت عملية ال Stream‏ هذه تقبل 
عملية الكتابة أو القراءة وغيرها 

اغلاق العملية و کل ما يتعلق يها من ملفات وخلافه 

تحديث بيانات المستقبل بالبيانات الموجودة حالياً في Buffer‏ لو لم 
يكن هذه العملیه تدعم و جود Buffer‏ فهده الدالة لا تقوم بآي شيء في 
الواقع 

خاصية تعيد حجم ال stream‏ بالبايت 

تحدد المكان في ال stream‏ 


قراءة Cabs‏ او مجموعة من0۱۷/]65 


وضع المؤشر في مكان جديد في هذا stream!‏ 
تحديد طول ال Stram‏ الحالى 


كتابة cab‏ او مجموعة من ال bytes‏ 


CanRead, 
CanWrite 


Close() 
Flush () 


Length 
POS Lc LOM 


Read(), 
ReadByte () 
Seek () 


setLength )( 


We SLES Tr 
WriteByte )( 


الجدو J‏ 13. 7. بعض الدوال الخاصة بالفئة .otream‏ 
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الباب الثالث عشر الادخال و الاخراد فى ال net‏ 


FileStream Aiall ۵0 

هذه الفتة التي تطبق الفئة القاعدية abstract class‏ السابق تختص فقط بالتعامل مع ال 
Streaming‏ مع الملفات. 

المتال التالي یوضح الکتابة في Bae‏ آماکن من الملف ومن ثم قراءة البیانات المكتوية - 
قبل الكتابة فقط نحتاج لتحویل الرسالة إلى bytes‏ لذا لا تنس هذه الخطوة. 


private void filestreamexample(string msg, string beforeendmsg) 
{ 
using (FileStream f1 = File.Open(@"C:\test.txt", 
FileMode.Create) ) 
{ 
byte[] msgArray = Encoding.Default.GetBytes (msg); 
byte[] beforeendmsgArray = Encoding.Default.GetBytes (beforeendmsg); 
fl.Write(msgArray, 0, msgArray.Length); 
tl.Positcion = ct5tream.Lenght = L0; 
fl.Write(beforeendmsgArray, 0, msgAsByteArray.Length); 


// view total message. 
long totalLenght = msgArray.Length + msgAsByteArray.Length; 
byte[] filemsg = new byte[totalLenght]; 
Tor (1nb 1 = 0r; i = rotalLenghrb; LEE) 
filemsg[i] = (byte)fl.ReadByte(); 


Console.WriteLine(Encoding.Default.GetString(filemsg)); 
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الباب الثالث عشر الادخال و aljàlll‏ فى ال net‏ 


VB.NET 


Private Sub filestreamexample(ByVal msg As String, ByVal beforeendmsg As 
SEEING) 
Using fl As FileStream = File.Open("C:Ntest.txt", FileMode.Create) 
Dim msgArray As Byte() = Encoding.[Default].GetBytes (msg) 
Dim beforeendmsgArray As Byte() - 
Encoding.[Default].GetBytes (beforeendm 
fl.Write(msgArray, 0, msgArray.Length) 
fl.Position = fStream.Lenght - 10 


fl.Write(beforeendmsgArray, 0, msgAsByteArray.Length) 
۲ view total message. 
Dim totalLenght As Long = msgArray.Length + msgAsByteArray.Length 
Dim filemsg As Byte() = New Byte(totalLenght - 1) {} 
For i As Integer = 0 To totalLenght - 1 
1 1۱6۳۱50 (i) = CByte(fl.ReadByte()) 


Next 
Console.WriteLine(Encoding.[Default].GetString(filemsg)) 
End Using 
End Sub 





8 2. التعامل مع liall‏ الوستقة 


ذحر نا في أول درو سنا في موضو € الادخال والاخراج آن Ua‏ عدة انواع من Sel path‏ 
والكتابة في stream‏ ذکر نا منها StreamWriter, StreamReader‏ 
sescBlünarybBeader, BinaryWriter $4 SUIIDOQWFILOr, StLEIDOROSSOSE3‏ 


ما سنبداً فى التعرف علیهم OYI‏ 


StreamWriter, StreamReader 3 85 


الفئات الأشهر والأكثر استخداما من بين الفئات الثلاث السابقة ۰ تحتوي على الدوال 


الاساسية تعملية الكتابة و القر Sel‏ التالية: 
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الباب الثالث pic‏ الادخال و الاخراد فى ال net‏ 


StreamWriter 


الدالة أو الخاصية الو صف 


مسح كافية محتويات ال buffer‏ 





الجدول 13. 8. بعض الدوال الخاصة StreamWriter ath‏ . 


StreamReader 


تحتوي بالاضافة إلى الدوال الثلاث الأولى في الفقرة السابقة: 


الدالة أو الخاصية الو صف 





الجدول 13. 9. بعض الدوال الخاصة بالفئخة StreamReader‏ . 
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الباب الثالث عشر الادخال و الاخراد فى ال net‏ 


مثال یجمع عمليتي Sel LAM‏ والکتابه إلى ملف نصي: 


private void write(string msg) 
i 
using (StreamWriter wl = File.CreateText ("test.txt")) 
{ 
wlsWrite ("Start )-; 
wl.Write(writer.NewLine); 
wl.WriteLine (msg); 
) 
) 
private string read() 
{ 
using (StreamReader sl = File.OpenText ("test.txt")) 
{ 
string input = null; 
String msg = P 
while ((input = sr.ReadLine()) != null) 
{ 
Console.WriteLine (input); 
msg += input; 
) 


return msg; 


VB.NET 


Private Sub write(ByVal msg As String) 
Using wl As StreamWriter = File.CreateText ("test.txt") 
wl.Write("Start") 
wl.Write(writer.NewLine) 
wl.WriteLine (msg) 
End Using 
End Sub 
Private Function read() As String 


Using sl As StreamReader = File.OpenText ("test.txt") 
Dim input As String = Nothing 
Dim msg As String — "" 
While (input = sr.ReadLine()) IsNot Nothing 
Console.WriteLine (input) 
msg += input 
End While 


Retur msg 
End Using 





End Function 
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الباب الثالث عشر الادخال و aljàlll‏ فى ال net‏ 


ناتج عملية الكتابة في الملف: 


File Edit Format View Help 





Ahmed Gamal Khalifah 


و gil‏ عملية القراء2 على Console: ji‏ 


E file CU sers/Ahmed/Documents/Visual Stuc 


Start 
Ahmed Gamal Khalifah 





ناتج المتعیر النصي سیکون بدون agile‏ السطر الجدید والذی سیننج عن الداله 


StringWriter, StringReader 4.6‏ 
كما ذکرنا سابقاً لا يوجد اي فارق Lec‏ سبق ( فقط الناتج یعود في String‏ و هو ما یمکتک 
من عملية بالشکل التالي مثلا: 


82 الط 68 تام 2832 161 2ن = SCcDUILdSP‏ وناك ري نا م 
stbuilder.Remove (0, 10);‏ 
stbuilder.Insert(0, "Ahmed Gamal");‏ 


Dim stbuilder As StringBuilder = strWriter.GetStringBuilder() 
stbuilder.Remove (0, 10) 
stbuilder.Insert(0, "Ahmed Gamal") 
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الباب الثالث عشر الادخال و الاخراد فى ال net‏ 


BinaryWriter, BinaryReader [5.8 


تمكنك من الكتابة والقراءة والتخزین في ملفات binary‏ مشتقة من الفتة 
System.Object‏ و تحتوي على آغلب الدوال الموجودة في الاربع فثات السابقة. اضافة إلى 
الدالة )( ReadXXXX‏ حسب نوع المحتویات » هذا المثال للقراءة والکتابة باستخدام هذه الفثة: 


FilelInfo f = new FileInfo("Binary.dat"); 
using (BinaryWriter bwriter - new BinaryWriter(f.OpenWrite())) 
1 

double dbl = 1234.67; 

long Ing = 34567000; 

gering str = "E B. DS 

// Write different data. 

bwriter.Write (dbl); 

bwriter.Write(lng); 

bwrirter.Wwritei(str); 


} 


// Reading using ReadXXX; 
using (BinaryReader breader = new BinaryReader(f.OpenRead())) 


{ 


Console.WriteLine (breader.ReadDouble()); 

Console.WriteLine(breader.ReadInt64()); // == long as i think , i am not 
sure. 

Console.WriteLine(breader.ReadString()); 


} 
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الادخال و الاخراد فى ال net‏ 


VB.NET 


Dim f As New FileInfo("Binary.dat") 

Using bwriter As New BinaryWriter(f.OpenWrite()) 
Dim dbl As Double = 1234.67 
Dim lng As Long = 34567000 
Dim str Ag String = "A, B, G" 


' Write difrternt data. 
bwriter.Write (dbl) 
bwriter.Write (lng) 


bwriter.Write (str) 
End Using 


۲ Reading using ReadXXX; 

Using breader As New BinaryReader(f.OpenRead()) 
Console.WriteLine(breader.ReadDouble()) 
Console.WriteLine (breader.ReadInt 64 () ) 

۲ == long as i think , i am not sure. 
Console.WriteLine(breader.ReadString()) 
End Using 





الباب الثالت pue‏ 


FileSystemWatcher ;9 


تعتبر هذه الفثة مفيدة جدا في حالة رغبتنا في مراقبة سلوك ملف معین ومعرفة اي تغییر 
يطرأ علیها من التغییرات الموجودة في gang System. 10۰.011۷۳111] 615 enum!‏ 


يراقب اي من التغییرات التالية: 


public enum NotifyFilters 


{ 


Attributes, Crestilonrime, 
DirectoryName, FileName, 
LastAccess, LastWrite, 
Security, Size, 
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الباب الثالث عشر الادخال و الاخراد فى ال net‏ 


VB.NET 


Public Enum NotifyFilters 
Attributes 
CreationTime 
DirectoryName 


FileName 
LastAccess 
LastWrite 
Security 
Size 

End Enum 





طبعا Les‏ اننا نتحدث عن 6۷6۲5 و تغییرات ۰ سنحتاج فورا لتعریف دوال يتم تنفیدها مرتبطة 
بالاحداث . اي دالة تستخدم لقراءة احداث مثل التعدیل والتغییر و خلافه لا بد ان تکون على شکل 


6 التالي : 


void MyNotificationHandler(object source, FileSystemEventArgs e) 


{ 


} 


VB.NET 


Private Sub MyNotificationHandler (ByVal source As Object, ByVal e As 
FileSystemEventArgs) 


End Sub 





Lai‏ حدث تغییر الاسم Y‏ بد أن یتبع للشکل التالي: 


void MyNotificationHandler(object source, RenamedEventArgs e) 


{ 


Private Sub MyNotificationHandler (ByVal source As Object, ByVal e As 
RenamedEventArgs) 


Ena Sub 
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الآن سنقوم بتعریف برنامج Gale‏ یقوم بمراقبة حالة الملفات ۰ طبعا و LOY‏ نرغب في ان 
نری نتائج البرنامج فلا بد ان نجعل البر نامج يعمل حتی یضغط المستخدم حرف متلا .41 كنا 
فى Windows Forms‏ كان بامکاننا المراقبة مباشرة طبعا » فى مثالنا هذا سنر اقب كافة الملفات 


النصية فى القر ص الصلب CIN‏ لحدثى الاضافة و الحدذف: 


FileSystemWatcher watcher = new FileSystemWatcher(); 

// monitor files at: 

watoher.Parh = ل‎ cr": 

// monitor files when 

watcher.NotifyFilter = NotifyFilters.LastAccess | NotifyFilters.LastWrite | 
NotifyFilters.FileName | NotifyFilters.DirectoryName; 


// watch files of type 

ای و = watcher.BPilter‏ 

// watch events: 

watcher.Created += new FileSystemEventHandler (OnChanged); 
watcher.Deleted += new FileSystemEventHandler (OnChanged); 


watcher.EnableRaisingEvents = true; 
Console. wWriteLine ("Press 'q' to quit app."); 
while (Console.Read() != 'q') ; 


VB.NET 


Dim watcher As New FileSystemWatcher() 

' Monitor files at: 

watcher.Path = ۳ 

۲ monitor files when 

watcher.NotifyFilter = NotifyFilters.LastAccess Or NotifyFilters.LastWrite Or 
NotifyFilters.FileName Or NotifyFilters.DirectoryName 


۲ watch files of type 

watoher Filter = F= URU" 

' watch events: 

AddHandler watcher.Created, AddressOf OnChanged 
AddHandler watcher.Deleted, AddressOf OnChanged 


watcher.EnableRaisingEvents - True 
Console.WriteLine("Press 'q' to quit app.") 
While Console.Read() <> "q"c 


End While 
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كما لاحظت. عندما يحدث أي حدث فإننا نقوم یاستدعاء الدالة OnChanged‏ ۰ یمکن تخصیص 
Ala‏ لكل حدث أو كما تحب لكن هذا فقط JU‏ ۰ یمکننا كتابة alan‏ 110/11211060 بالشکل 


التالي Sie‏ - عرض الملف والتغییر ووقت التغییر: 


Static void OnChanged(object source, FileSystemEventArgs e) 


{ 


Console.WriteLine ("File Changed, File Path: {0} , Change: {1}, DateTime: 
{2}", e.FullPath, e.ChangeType, DateTime.Now.ToString()); 


} 


VB.NET 


Private Shared Sub OnChanged(ByVal source As Object, ByVal e As 
FileSystemEventArgs) 

Console.WriteLine("File Changed, File Path: {0} , Change: {1}, DateTime: 
{2}", e.FullPath, e.ChangeType, DateTime.Now.ToString() ) 
End Sub 





والان جرب البر نامج... 
الصورة التالية نتاج متوقع لحذف ملف من سواقة السي واعادته مرة آخری ( من سواقة السي 


مباشرة ) : 


EA file-///CJUsers/Ahmed/Documents/Visual Studio 2008/Projects/ConsoleApplication7/ConsoleApplic...' 


Press “g” to quit app. 

File Changed, File Path: c:\¥Server.txt مر‎ Change: Deleted, DateTime: 6757/2008 2: 
30:38 PM 

File Changed, File Path: c:\¥Server.txt . Change: Created, DateTime: 6/5/2088 2: 


38:44 PM 





الصورة 13. 2. نتائج تنفین الشفرة. 


Object Serialization .10 


مت تا هذ الدري سرت عن مفهوم ال Object Serialization‏ 


DT 


الباب الثالث عشر الادخال و الاخراد فى ال net‏ 


التعامل مع ال Serialization‏ 
عمل الفثة الخاصة بك لتکون ‘Serializable‏ 
كل ما في الأمر of‏ تضع الكلمة [Serializable]‏ اعلى اسم الفثة بالشکل التالي مثلا: 





[Serializable] 
public class serial 


<Serializable()> _ 
Public Class serial 


End Class 





ماذا استفید من کون الفئة الخاصة بى sSerializable‏ 


معظم Glial‏ الاساسية تتیح لک کونها Serializable‏ للاستفادة من بعض الخصائص مثل 


الكتابة المباشرة إلى ملفات القرص الصلب كما تعلمنا سابقا » هذا المثال: 


serial sample = new serial(); 
using (scream isl = new Filescream ("cdara.ctxe”, 
FileMode.Create, FileAccess.Write, FileShare.None) ) 
{ 

binFormat.Serialize(fwl, sample); 


} 


Dim sample As New serial )( 
Using fsl As Stream = New FileStream("data.txt", FileMode.Create, 
FileAccess.Write, FileShare.None) 
binFormat.Serialize(fwl, sample) 
End Usinc 





318 


الباب الثالث عشر الادخال و الاخراد فى ال net‏ 


ماذا Lisi‏ ؟ 


هناك عدد كبير من الکائنات التي قد لا تقبل التعامل مع الفثات الخاصة بك الا لو كانت 
(Serializable‏ منها ال View State‏ فى صفحات ASP.net!‏ 
هناك العدید من الطرق Serialization Lex‏ لکائناتک , منها: 


BinaryFormatter 


علیک Y yi‏ اضافه مرجع إلى المجمع 
System.Runtime.Serialization.Formatters.Binary‏ 


Pineryrormatler binbPoxmatter = now BlüaryFormatter(); 
using (Stream fsl = new FileStream("data.txt",FileMode.Create,FileAccess.Write, 
FileShare.None) ) 


{ 


binFormat.Serialize(fsl, myobject); 


} 


VB.NET 


Dim binFormatter As New BinaryFormatter )( 
Using fsl As Stream < New FileStream("data.txt", FileMode.Create, 
FileAccess.Write, FileShare.None) 
binFormatoerraelrTze(rtsl, myobj]ect) 
End Usine 





و لعمل :Deserializing‏ 


BinaryFormatter binFormatter - new BinaryFormatter(); 
using (Stream fsl = File.OpenRead("data.txt")) 
{ 
newobject car = 
(objectclass)binFormatter.Deserialize(fs1); 


VB.NET 


Dim binFormatter As New BinaryFormatter () 
Using fsl As Stream = File.OpenRead("data.txt") 
Dim car As newobject = DirectCast (binFormatter.Deserialize(fsl), 
objectclass) 
End Using 
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XmlSerializer 2 0‏ 
يعد ال XML‏ النوع الأحدث في عالم تخزين البياكات: تظرا لإنه يجمع بين امكانيات قواعد 
البيانات من Coo‏ البحث وخلافه ويجمع بين سهو له التعامل معها كما في الملفات النصیه. الصيغة 


العامة oY‏ ملف XML‏ بالشكل التالي: 


«root» 
«Member» 


<Name>AHmed</Name> 
<Age>22</Age> 
</Member> 
</root> 





آحمد و 22 تسمی Element‏ آما Name‏ و Age‏ تسمی Attribute‏ . 
لمعرفة المزید حول XML‏ یمکنک البدء من هنا: 


S9 رابط‎ 
http://www.w3schools.com/xml/xml  whatis.asp 
System.Xml.Serialization a العناصر الآساسية المو جودة‎ 


العنصر الو صف 

Attributeast يتم تحویل هذا العنصر على‎ XmlAttributeAttribute 

Elementai يتم تحویل هذا العنصر على‎ XmlElementAttribute 
Roots! لتحدید‎ XmlRootAttribute 


XML Textj يتم تحویلها‎  XmlTextAttribute 





الجدول 13. 10. بعض Jl ss‏ مجال الاسماء .System.Xml.Serialization‏ 
فمثلاً لتحویل هذه الفثة إلى XML‏ عن طریق عملية :Serialization‏ 


class Members 


{ 


[XmlAttribute] 
string Name; 
[XmlAttribute] 
int Age; 
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VB.NET 


Class Members 
<XmlAttribute()> _ 
Private Name As String 


<XmlAttribute()> _ 
Private Age As Integer 


End Class 
ستجد الناتج على‎ Serialization والآن بعد اضافة اي نوع من البیانات على هذه الفئة ومن ثم عمل‎ 
السابق.‎ XML شكل ملف‎ 





321 





برجم Sdlgill‏ فى 





„net 2008 


Windows Forms 


الباب الرابع عشر برمجة Aalgill‏ فى .net‏ 2008 


ägaäg . 1 


تعتبر الکلمة Viusal‏ التي اصبحت متلازمة مع اغلب لغات البرمجة هي الحل السحري 
لمشاکل تصمیم واجهات مناسبة للمستخدم ۰ في عصر ما قبل لغات البرمجة Visual‏ كنت 
ستکون مجبر على رسم واجهاتک بالکود . مع ما يعنيه ذلك من صعوبة وتأخير في وقت التنفین 
اضافة إلى انخفاض مستوی التصمیم. 

في c.t .net‏ المکتبة System.Windows.Forms‏ لتقدم لک كل ما تحتاج إليه 
لتصمیم واجهة مناسبة > هناك ایضا مجموعة دوال API‏ تعرف باسم +601 تمکنک من Sala}‏ 
كفاءتك الرسومية من خلال مجموعة من pol gill‏ المخصصة للرسومات 20 آخیرا ومع Net‏ 
0 جاءت LI‏ مایکرو سوفت بتقنية Windows Presentation Foundation‏ او ما تعرف اختصارا 


باسم WPF‏ لتزید من كفاءة الر سومیات ضمن تطبیقات البر مجة لحد مر تفع جدا. 


Windows Forms cli 2‏ بالکود 


قبل أن نبدأ باستخدام المعالجات الجاهزة (4M‏ وفرتها Lit‏ مایکروسوفت ضمن Visual‏ 
0 یفضل ان نقوم بمحاولة بناء تموذج بعیدا عنها حتی نستطیع فهم كيفية عمل Windows‏ 


.Forms 


لذا قم بفتح المفکرة Notepad‏ » قم بانشاء ملف wis‏ باسم WindowsForms.CS‏ ومن 


تم ستيداً فی كتابة الکو د. 


أو لا سنقوم بتعريف فئة مشتقة من الفثة 201105 بالشكل التالى مثلا : 


class SimpleWindow : Form 


{ 
} 
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VB.NET 


Class SimpleWindow 


Inherits Porm 
End Class 





والآن سنقوم فى حدث Main‏ باستدعاء ie X5‏ لا Guidi‏ اضافة مکتبات 


System. Windows . Forms‏ لذا سیکون الکود بالکامل بالشکل التالي: 


using System; 
using System.Windows.Forms; 
namespace WindowsForms 
{ 
Clase Program 
{ 
Static void Main )( 
{ 
Application.Run(new SimpleWindow()); 
) 
) 
) 
class SimpleWindow : Form 
{ 
} 


VB.NET 


Imports System 
Imports System.Windows.Forms 
Namespace WindowsForms 


Class Program 
Private Shared Sub Main() 
Application.Run(New SimpleWindow )( ) 
End Sub 
End Class 


End Namespace 
Class SimpleWindow 


Inherits Form 


End Class 





الآن daa‏ كل ما عيك هو فتح الشل Cmd‏ الخاص بك › و کتابة آمر مثل التالي: 


Shell 





Gs Larger j winexe eS 
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طبعا بعد الذهاب لمسار البرنامج»› وبعد تعريف CSC‏ للکون جاهزة SLY‏ ستخدام فی أي مکان» سیکون 


الناتج Lind‏ مثل هذا: 





الصورة 14. 1. elo‏ نافذة بسيطة. 


والآن بامكاننا التحكم في بعض الخصائص ؛ مثل الطول والعرض . الشفافية .... الخ من الخصائص 


أو حتى تنفين الأوامر التى يمكن الو صول إليها من خلال Object Browser‏ بالشکل التالی Mie‏ 
Browse: 5:۳ ۳ 07222۲۳‏ 


Actryatebddic had System. Windows: Forms: Fonni)‏ و 
ern Stem. Winder Forms Fem)‏ کم بل وش o‏ 
AdjutFormScrollbars(beal)‏ $9 
CenterToParenti)‏ $9 
qP CenterTotcreen()‏ 
û Chose]‏ 
qP CreeteHan dle]‏ 
q” Def ned Proc [ref System. Windows Forms Message]‏ 
Dupese(bool)‏ 49 
Forni)‏ * — 





"LM j Base me 

E Dg Dered Types 
kou System. Windows. Forms FormEorderst,le 
E A; Syctem Windows Forma Form lezedEventÁrgs 
Big System. Windows Poma FermClosedEvert Handler 
9g System. Windows. Forms. FormClosingEventArgs 
PO System Windows. Forma FerecletingfventHandler 
& AF System Windows. Forma. FormnCollecbon 
€ a System Windows. Forma FormStartPositian 
Sa” System. Windows Forma Form WiedewStabe 





49 GetScaledBounds(System. Drawing Rectangle, System Drawing. SizeF, System. 
7 انریا‎ (System. Windows. Forms MdiLeeut] 
$9 OndctryetedtSstem EventArgs) 
q% OnBackgraundimageChangediSygtem.Eventárgs) 
—* OnBackgreundImageLsyoutChanged(System.EventArgs) 
$9 OnClosedi(System.EvenitÁrgs) 
$9 —————— —— 





Represents a window or dialog box that makes up an applications user 
interface. 


4 lii ٣ = 





Object Explorer ال‎ saan .1 .14 الصورة‎ 


لذا نجد ان بامکاننا Mie‏ تغییر الطول والعرض و توسیطه » لذا سیکون كود الفورم بالشکل التالي: 
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class SimpleForm : Form 


{ 
public SimpleForm(int height, int width, bool center) 


{ 


Width = width; 
Height = height; 
if (center) CenterToScreen(); 


VB.NET 


Class SimpleForm 
Inherits Form 
Public Sub New(ByVal height As Integer, ByVal width As Integer, ByVal 
center As Boolean) 
Width = width 
Height = height 
If center = True Then 
CenterToScreen() 
End IT 
End sub 
End Class 


لکن لا تنس آنک في RUN‏ سوف تقوم بتمریر بارمیترات إلى الفثة » بالشکل التالي مثلا: 





static void Main() 


{ 
Application.Run(new MainWindow(200, 300, True) ); 


} 


VB.NET 


Private Shared Sub Main () 
Application.Run(New MainWindow(200, 300, [True])) 
End Sub 


لا تنس طبعا انه بامکانک الحصول علی هذه القیم من خلال 25 كما تعلمنا سابقا ... 





اضافة آدوات بالکود 
تعلمنا رسم الفورم بالکود. cle‏ الدور OF!‏ على وضع الأدوات المختلفة على الفورم › يتم ذلك 


بالواقع من خلال الآوامر التالية: 
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الدالة of‏ الخاصية الو صف 


عدد الادوات » فى الواقع هذه الخاصية مفيدة re‏ عند محاو OY‏ المرور 
على الأدوات 
Lei‏ الآدوات التي یمکنک اضافتها » فجميعها موجود تحت SSystem.Windows.FOrMS iah‏ 
حيث تجد كل الادوات التي تعودت على رؤيتها... 
ue‏ اضافة pilgall‏ 


سنحاول gt!‏ صول للشکل التالي حيث یمکن الخروج بالضغط على زر Exit‏ في القائمة: 





M17) 





الصورة 14. 2. اضافة آداة ال Menu‏ للنافنة بالکود. 


الكود سيكون تمفيظ] . سنقوم بتعریف MenuStrip‏ للقائمة ومن ثم ToolStripMenultem‏ تعناصر 


القانمه : 


private System.Windows.Forms.MenuStrip menuStripl; 


private System.Windows.Forms.ToolStripMenuItem fileToolStripMenuIltem; 
private System.Windows.Forms.ToolStripMenuItem exitToolStripMenuIltem; 





329 
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VB.NET 


Private menuStripl As System.Windows.Forms.MenuStrip 


Private fileToolStripMenultem As System.Windows.Forms.ToolStripMenuItem 
Private exitToolStripMenultem As System.Windows.Forms.ToolStripMenuItem 


الخطوة الثانية هي عمل ata‏ في ال Constructor‏ لیکن اسمها You .BuildForm‏ من وضع 


الاکواد مباشرة فى ال 0۲۱5]۲۱60۲). 





public SimpleForm() 

{ 
Text="Example. Simple Form"; 
Bui ldForm()-; 


Public Sub New() 
Text = "Example. Simple Form" 
Bui ldForm() 

End pup 





الآن سنقوم ببرمجة هذه الدالة» سنقوم يوضع claw!‏ للعناصر ونضيفها باستخدام Add‏ للقائمة 


fileToolStripMenuItem.Text = "&File"; 
menuStripl.Items.Add(mnuFile) ; 
exitToolStripMenultem.Text = "E&xit"; 
menuStripl.DropDownlItems.Add (mnuFileExit); 


VB.NET 


fileToolStripMenuItem.Text = "File" 
menuStripl.Items.Add (mnuFile) 
exitToolStripMenuItem.Text = "Exit" 
menuStripl.DropDownlItems.Add(mnuFileExit) 


exitToolStripMenuItem.Click += new 
System.EventHandler(this.exitToolStripMenuItem Click); 
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VB.NET ۱ ye 


AddHandler exitToolStripMenulItem.Click, AddressOf exitToolStripMenultem Click 


أخيرا سنعتمد القائمة الرئيسية لتكون القائمة الخاصة بال Form‏ بالشکل التالی بعد اضافتها 





Controls.Add(this.mnuMainMenu); 
MainMenuStrip - this.menuStripl; 


VB.NET 


Controls.Add(Me.mnuMainMenu) 
MainMenuStrip = Me.menuStripl 





:EXIt سوف نقوم بكتابة الحدث الخاص بالضغط على زر‎ OF 


private void 2411100191 1110۳6۳1716۳0 Click(object sender, EventArgs e) 


1 
Pop ications EXIt{)} 


} 


VB.NET 


Private Sub exitToolStripMenulItem_Click (ByVal sender As Object, ByVal e As 
EventArgs) 

Application. [Exit] () 
End Sub 





بهذا یکون الکود الاجمالي بالشکل التالي 
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class SimpleForm : Form 
{ 
private System.Windows.Forms.MenuStrip menuStripl; 
private System.Windows.Forms.ToolStripMenuItem fileToolStripMenuIltem; 
private System.Windows.Forms.ToolStripMenuItem exitToolStripMenultem; 
public SimpleForm() 
{ 
Text = "Example. Simple Form"; 
BurildBPormt); 
) 
private void BuildForm() { 
fileToolStripMenuItem.Text = "File"; 
menuStripl.Items.Add(mnuFile); 
exitToolStripMenuItem.Text = "Exit"; 
menuStripl.DropDownlItems.Add (mnuFileExit); 
exitToolStripMenuItem.Click += new 
System.EventHandler(this.exitToolStripMenuItem Click); 
Controls.Add(this.mnuMainMenu); 
MainMenuStrip - this.menuStripl; 
) 
private void exitToolStripMenuItem Click(object sender, EventArgs 
Application.bxrt(; 


} 


VB.NET 


Class SimpleForm 
Inherits Form 
Private menuStripl As System.Windows.Forms.MenuStrip 
Private fileToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem 
Private exitToolStripMenultem As System.Windows.Forms.ToolStripMenuItem 
Public Sub New() 
Text = "Example. Simple Form" 
BüuildFormti) 
End Sub 
Private Sub BuildForm() 
fileToolStripMenuItem.Text - "&File" 
menuStripl.Items.Add(mnuFile) 
exitToolStripMenuItem.Text = "E&xit" 
menuStripl.DropDownlItems.Add(mnuFileExit) 
AddHandler exitToolStripMenuItem.Click, AddressOf 
exitToolStripMenuItem Click 
Controls.Add(Me.mnuMainMenu) 
MainMenuStrip = Me.menuStripl 
End Sub 
Private Sub exitToolStripMenulItem_Click (ByVal sender As Object, ByVal 
EventArgs) 
Application. [Exit] () 
End Sub 
End Class 
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الباب الرابع puc‏ 


3. انشاء فورم عن طریق Visual Studio .net‏ 


فقط افتح 2008 Visual Studio‏ من قائمة File-New‏ قم باختیار Windows Forms‏ 
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.Visual Studio 


الصورة 14 . 3. اضافة النوافن بالاستعانة ببيئة التطویر 2008 


الآن من القائمة الحانبية Tool Box‏ اختر MenuStrip‏ ۰ ستجد الشکل التالی: 
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File Edit View Project Build Debug Data Tools Test Analyze Window Help 





: لوا‎ aL E El AW A LL EL b Des gr -| D 
:3:* ۷ [I Sh | XE ا‎ 1s 3 | نم‎ E Lis M DOR | T: 8t et m EH [= ij | 33, 2, | Gi 2 , 





Xi» HScrollBar 
A Label 

A LinkLabel 
me ListBox 
23. ListView 





3 MessageQue 
«| MonthCalendi Version 2.0.0.0 from Microsoft Corporation 


را 

=| Motifdcon | -NET Component 

is - Up Displays application commands and options grouped 
Fw OpenFileDialo by functionality. 

ER PageSetupDialót 
[.] Panel 

eS] PerformanceCounter 
di PictureBox 

CA PrintDialog 





الصورة 14. 4. اضافة القوائم بالاستعانة ببيئة التطویر 2008 Visual Studio‏ 


الآن وكما clad‏ قم بالتفر ع كما ترید و تصمیم القائمه. عند الضخط مرتین على العنصر Exit‏ 
ستجد pod‏ جاهزا ثلکتابة بالشکل التالی؛ 
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Teele HFM i bg 
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۳ 1 "stam pir erm Farrel 
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Lc HR s‏ هزه 5 
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m m 1 
Ferm les" formad Daeuzsrares و ی‎ lÜ 


E tees oe 





ge ele Cheba sedes, Endless gi‏ دج 


Thess BOF نیج‎ cube یی‎ umizg 5ysatam.Hizudcws.TP-rmma: 
" 0 HTT 
Ed وی نو‎ rg E TI a 
ge Ta] جه ادها‎ ise p t namespace SimpleTncm a "repete 
ie | ams I iı a Fl اس سر‎ 


Tamme 1 sy ee 5 Foie ce‏ ]= دوا مت 4 بت 
pubilc partial clamp Form. 3 Fors EE‏ 
I "3 Farm] Dag cu‏ 
Peel rers‏ ل PUBLLC 22 ij‏ 
Preyer‏ لد I‏ 
G SpE] i‏ ۴ ۲۲۱۹۰۸۱۵ 


private void emguicISSLDDEELDEREDUiTeRB CLIGE(obiect Seer, E 
I 


Ff WILDE PR Gels HEFTE. 





Raed, Ln zl od RT Ch ET TS 





الصورة 14 . د. aul o3‏ الکود او 33 ماتیکیا بواسطة بيئة التطویر. 


الآن اکتب الکود. ومن ثم اضغط على F5‏ و جرب. 
والآن ألا تتفق معي أن الوضع آصبح آسهل کنیرا.... 
الآن » سنتعرف على Gli gine‏ الواجهة الرئيسية. 


فى مرحلة سابقة من الدروس تعرفنا على يعض bladi‏ فى واجهة Visual Studio‏ الآن سئو اصل 


التعرف على النقاط الخاصة بالواجهة الرسومية. 
ToolBox‏ 


يحتوي على الأدوات الرئيسية التي نحتاج الیها ۰ لو لم يكن ظاهرا یمکننا اظهاره من - View‏ 
.ToolBox‏ 
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آهم الادوات التي نحتاج الیها موجودة تحت التبویب All Windows Forms‏ » مع ذلك ما زال 
بامکاننا اضافة تبویب جدید و اضافة Ol gai‏ آخری 41 « عن طریق Add Tab‏ ومن ثم Choose Item‏ 


واختیار العنصر الذي ترغب فیه: 










bua cual Mii Nri. سای‎ 


e KdA Vew Dunst ی‎ Deeg Dus Tash Tes Amas Wake Hep 









































CPL 25 A. IE ee EC‏ مد uw Dli- mem) g‏ تنا > نذا > لذا 
wd ١ cR TES‏ الا سب LL ae, oO m‏ قلق ته Lilo 5 Zw‏ 
Foomici” FormiDwngnercs Formica [isign] uox hs Euler bee Seite = D oW‏ | مدصنا عمجت Telbe a du Saat Page|‏ 
f,‏ 0 3[ لفلف Widows Por. IE‏ ابا« 
ampla erm (d past)‏ مات Commas Control [ ad‏ " 
Lenlen | T npea‏ = 
kicn & rn | | + d Frépetin‏ - 
ıı cw Eero‏ | فاهلا - 
ce‏ ات T]‏ | ا وی« 
j Formi Deeper eu‏ سردات uer‏ بارش PIETET‏ | ۱۴۲95 - 
Mj Form] rera‏ برد ٠ Duas X Accutire Syr Webb MbControh rimê GD) Giota‏ 
تج ]1 Took Menotti Tool. Global Ame.‏ و مت ٠ WP labesoperablity Pinno‏ 
Tan. Cioka Fara.‏ وان coda icat‏ | زا متتس شم 
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الصورة 14. 6. اضافة عناصر لقائمة الأدوات “001801 [. 


Tabs Group 





يحتوي على جميع الملفات والمصادر التي Coe‏ يفتحهاء Coo‏ يمكنت التنقل بینها. 


م2 


یمکنک الضغط على Ctrl+Tab‏ للتبدیل بين الشاشات المفتوحة بالشکل التالی مثلا : 
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۲۶ WindowsFormsApplication1l TemporaryKey.pfx 





Active Tool Windows Active Files 
لوك‎ Solution Explorer - Window... i£] WindowsFormsApplication... 
2۳ Properties EE] Form2.cs [Design] 





By Class View 4[ Program.cs 

Output EB) Form2.es‏ لكا 

Je Error List .') WindowsFormsApplication... 
Sa Server Explorer Start Page 

3P Toolbox TÀ Object Browser 


CA. A WindowsFormsApplicationl INWindowsFormsApplicationll TemporaryKey.pfx 


الصور ó‏ 4 . 8. نافدة اختیار النو افد. 


Properties Windows 


ضار + |82[ 22:2 





الصورة 14. 9. نافذة الخصائص. 
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تجد Lg‏ الخصائص التي ترغب في تعديلها TE‏ عنصر يتم تحدیده على الفورم . هذه الصورة 


توضح خصائص احد عناصر القائمة. 
Solution Explorer‏ 


Solution Explorer - Solution SimpleFor.. w A X 


Es | تھ‎ [e] | El EB] مه‎ 
[d Solution ‘SimpleForm’ (1 project) 
E- NE SimpleForm 
fal Sa) Properties 
g- «aj References 
j- 8| Formil.cs 
0 eA تجا‎ Formi.Designer.cs 
- kj ۴۵۲۳۳۰۲۷ 
~ a) Program.cs 





الصورة 14. 10. نافنة متصفح المشاریم. 


یمکنک من تصفح محتویات مشروعک من Forms aag‏ أو Classes cua‏ او حتی صور و 


. Resources 


Class View 
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Class View -1X 
£ Search? ha 
uc Project References m 
5-47 SimpleForm 
| 24 Form 1 
| | BA Base Types 1 
3-9 Form 
: H Ag ContainerControl 
4-4 Program E 


zy Solution Explorer ig Class View | 


| 
| 























الصورة 14. 11. نافذة متصفح الکائنات. 

لاستعراض Glial!‏ المو جودة لديك و خصائصها و دوالها وخلافه. 

كيف يعمل ال Visual Studio.net‏ في انشاء النماذج ٩‏ 

بنفس الطر Ady‏ التي تعلمناها بالکود. ستجد لديك من قائمة Solution Explorer‏ ثلاثة ملفات: 
Forml.cs -1‏ 


سیمکنک من التحکم في الفورم يدوياً عن طریق الوضع Lal [Design]‏ تجد الأكواد التي قمت 
يكتابتها في هذا الملف ۰ یقوم كتير من المبرمجین بالتبديل بين الوضعین بالتنقل من القائمة 
العلوية »او الضغط مرتین على اي اداة لفتح الکود الخاص بها . یمکنک عمل ذلك بطريقة متالية 
عن طریق الضغط على الفورم بزر الماوس الأيمن واختیار الوضع Design - Code‏ أو حتی Class‏ 


.Diagram 


339 


الباب الرابع عشر Aagy‏ النوافذ فى .net‏ 2008 


Forml.Designer.cs -2 


هنا تجد الاکواد الخاصة بانشاء الأدوات والفورم › لو قمت بفتحه ستجد اکوادا شبيهة بتلک التی 


استخدمناها فى الجزء الأول من هذا الدرس: 


this - 221215515 ۳۳1 ۳0۳۱۴۲۱۵۲ .نقتت ع‎ Size = new System. Drawing. Size (152, 22): 
this.exitIoolStripMenuItem.Text = "Exit"; 
this.exitloolS5tripMenuItem.Click += new System.EventHandler(this.exitIool 
ff 

// Forml 

if 

this .AutrosScaleDimensions = new Syscem.Drawing.SizeF(6F, 13F): 

this .AutoScaleMede = System.Windows. Forms . نات‎ 35251 214532 Font: 
this.ClientSize = new System. Drawing. Size (375, 580); 
thiz.Controls.Add(rthis.menuStrip1l): 

this.MainMenuStrip = this.menu5tripi;: 

this.Name = "Formi"; 

this.Textr = "Example. Windows Forms"; 
this.menuScripl.ResumeLayout(false); 

this .menuStripl.PerformLayout (}: 

this.ResumeLayout (false) ;| 

this.PerformLayout (): 


- fendregion 


private System.Windows.Forms.MenuStrip menuStrip1: 
private System.Windows.Forms.IloolStripMenuItem filelool5tripMenuItem: 
private System.Windows.Forms.ToolStripMenuItem exitIool5tripMenuItem: 


الصورة 14. 12. متصفح الأكواد. 


Forml.rex -3 


يحتوي على المصادر المستخد مه و خلافه. 
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Jbg 4‏ الاسماء System.Windows.Forms‏ 


liall .1 4‏ الرئيسية System. Windows. Forms polis!‏ 
الفورم هو العنصر الاساسي في هذه ALAN‏ ۰ و هو مشتق من الفئات التالية: 


System.Object 
MEU العنصر الاساسي لكل کائنات‎ 


System.MarshalByRefObject 

لنتمکن من الوصول 1۷161 إلى الفورم 
oystem.ComponentModel.Component‏ 
لنالث مشتق من ال Interface‏ المسمی IComponent‏ 


oystem.Windows.Forms.Control 
Esc? Sess ui شاه‎ 


oystem.Windows.Forms.ScrollableControl 


من Jot‏ استخدام ال 5010115 »اي عنصر مشتق منها یمکن ان یتمتع بهذه الخاصية. 


oystem.Windows.Forms.ContainerControl 
أخرى 2 اي عنصر مشتق منها یمکن ان يحتوي‎ Controls جعله يمكن ان يحتوي على‎ Jol من‎ 


oystem.Windows.Forms.Form 
ات‎ Tuscis مارك‎ 


of b=)‏ ال Form‏ مشتق من .System.Windows.Forms.FOrm aiat‏ لذا قان جمیع 


خصائص و دوال و آحدات هذه الفئة تنتقل له بالتبعية» وهی ما سنتعرف علیها OW!‏ 
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Form Aiall خصانص‎ 2 4 


الخاصية الو صف 


همه 





ACCeptButton‏ تحدید الزر الذي يتم تنفید آوامره عند ضغط 


المستخدم علی Enter‏ 
 ActiveMDIChild‏ عندما یکون للفورم أبناء 60 يتم هذا لتحدید الابن 
t PAA |‏ 
IsMDIChildIsMDIContainer‏ لتحديد امکانية جعل هذا الفورم حاضن لفورمات 


آخری 
CancelButton‏ تحدید الزر الذي يتم تنفين آوامره عندما يضغط 


المستخدم على 5 ESC)‏ 
ControlBox‏ تحدید هل للفورم Y ai Control Box‏ 
PormBorderStyle‏ تحدید شکل حدود الفورم 
Menu‏ تحدید القائمة الرئيسية للفورم 
MaximizeBox‏ عرض زر التکبیر والتصغیر al‏ لا ۰ ستجد واحدة 
آخری Minimize «au‏ لعرض زر وضعه في 
الشرر یط السفلي 
ShowInTaskbar‏ تحدید العرض في الشریط السفلي للویندوز أم لا 
StartPosition‏ تحدید نقطة البداية للفورم عند ظهوره eM‏ مرة 
WindowState‏ تحدید حالة الفورم والتي يتم اختیارها من ال 
0 المسمی FormWindowState‏ 
الجد و ل 14. 1. بعض خصائص iatl‏ 0110 . 


ويحتوي ال enumeration‏ المسمی FormStartPOSition‏ على العناصر التالية: 


۳ zal 
af CentarParent 
e Centerren 
m^ Manual 
af WindowsDefaultBounds 
f WüandewsDefaultLacation 
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: فيحتوي على‎ FormWindowState آما‎ 
e + ا‎ 
ur ۳ رده‎ 
a Rimmed 


in Moral 


Form Aiall Jiga .3 .4 


الداله الو صف 





Activate()‏ لتنشيط الفورم 

Close()‏ اغلاق الفورم 
زا OI re‏ 1 ۱ ۱۳۰ ۲2 وضع الفورم في منتصف الشاشة 
LayoutMDI()‏ تحدید نظام عرض الشاشات الایناء في Atlin‏ و جودها 
ShowDialog()‏ عرض الفورم بصورة Dialog‏ بحيث Y‏ یمکن الرجوع لما خلفها 

الا بعد اغلاقها 

.Form الفثة‎ Jiga بعض‎ .2 .14 J sal 
Form Aidll احدات‎ .4 4 


الحدث الو صف 





Activate ينطلق هذا الحدث عندما يتم تنشيط الفورم سواء يأمر‎ Activated 
عندما يبدأ حدث الإغلاق‎ Closing 
عندما ينتهي حدث الإغلاق‎ Closed 
عندما يذهب التحكم إلى شيء آخر غير الفورم‎ Deactivate 
عندما يتم تحميل الفورم » ولكن ينطلق هذا الحدث قبل ظهور الفورم‎ 0 
لتجنب واحد من أكثر الأخطاء شيوعا-‎ - Sool على الشاشة‎ 
عند تحديد واحد من الشاشات الأبناء في حالة و جودها‎ MDIChildActive 


الجدول 14. 3. بعض Stasi‏ الفئة .Form‏ 
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كما ذكرنا ايضا سابقا « فان الفورم مشتق من ALAM‏ 5 0۳1101 » ولذا فهو یتمتع بكافة 


ممیزاتها والتي سنستعرضها هنا. 
Controls Aidll.5‏ 
5 1 خصانص Controls /iall‏ 


duo Lati‏ الو صف 


هه 





BackColor‏ لون الخاضبة 
ForeColor‏ لون النص الداخلي 
duals Backgroundlmage‏ صورة 
FONT‏ الخط و حجمه 939 dc‏ و خلافه 
Cursor‏ نوع الموشر الذي يظهر عند العبور فوق الأداة أو الفورم 
Anchor‏ للتعامل مع خاصية ال Dock‏ والتي تثبت مكان الادوات على الفورم 


مهما تغير حجم الفورم 
 AutoSize‏ حجم تلقائى للاداة حسب محتوياتها 


TOP‏ موضع الاداة او الفورم من الحد العلوي للاب 

Left‏ موضع الاداة او الفورم من الحد الأيسر للأب 

Bottom‏ موضع الاداة او الفورم من الحد الأسفل للأب 

Right‏ موضع الاداة او الفورم من الحد الآيمن للأب 
5 الحدو د 

ClientRectangle‏ من مریع 

0 ا نطو ل 
fo Width‏ 


date تحدید امكانية التحکم بالاداة او الفورم من‎ Enabled 
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Visible‏ الظهور والاختفاء 
ModifierKeys‏ قراءة حالة ال Jia ModifierKeys‏ ال Alt‏ و Shift, Ctrl‏ 
dsl TE MouseButtons‏ م (Coco sb‏ 
TabIndex‏ تحدد ترتیب العناصر للانتقال بینها بواسطة زر Tab‏ 
90 بمنع الو صول للعنصر من خلال زر 120 
Opacity‏ درجة الشفافية ما بين 0 و 1 
Text‏ النص المعر و ض داخل الاداة 


5 تمکنک من الوصول للاداوات الداخلية في Alle‏ كان العنصر قادرا 


على استيعاب عناصر داخله 
الحدو J‏ 14. 4. خصائص .Control at‏ 


Controls Aidl Cilaal .2 .5 


الحدث الو صف 





Click‏ الضغط بالماوس 
yS‏ ضفطتین بالماوس 
Mousebnter‏ دخول الماوس إلى نطاق الاداة 
6 خروج الماوس من نطاق الاداة 
MouseDown‏ ضغط زر الماوس لاسفل 
رفع الاصبع عن ضغطة زر الماوس 


. عبور الماوس فوق نقطة‎ MouseMove, 
HOUSEA 


Wheel! على‎ 444231 MouseWheel 


KeyPress‏ ضغط زر من الکیبورد 
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سحب اداة قوق الاداة الحالية 





.Control at د. أحداث‎ .14 J الجدو‎ 





System.Windows.Forms.Control Cgil 6 


525 في الدرس السایق باننا سنقوم باستعراض الادوات > آو e Aaa J‏ معرفتها هي أن كل 
الأدوات مشتقة من Controls aia)‏ لذا فان أي آداة ستتمتع بالخصائص والأحداث التي قمنا 


بشر حها في الدرس السابق مباشرة. 


الآن سنستعرض بعض الأدوات الرئيسية لدینا. 


Button .1.6 








زر آمر عادي جدا . يحتوي على بعض الخصائص متل: 
1۱16 ۳: تحدید مظهر زر الامر. 


:TextAlign‏ موضع النص من زر الأمر. 
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CheckBox (2 6 


[Z] don't come here 


زر الاختیار المتعدد » یمکننا اختیار عدة عناصر » يحتوي على خصائص اضافية مثل: 
ate :CheckState‏ الاختیار. 


:) مفكل عرفا‎ dada غير‎ < dama) فا‎ ee, حمل‎ 45325 ie e 
RadioButton )5 6 


.J only one 
.J can checked 


@) waaaaa 


(à! new Panel 


i same panel :) 


مثل السابق و لکنه یسمح لک باختیار واحد. لو كنت تريد استخدامه SOY‏ من مرة ضع كل 


منهم فى panel‏ مختلف. 
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ListBox و‎ ComboBox 4 6 


Select Me 


Or Me 
If (Multi==True ) Select Me Too 








Ahmed 
Moahammed 
Ali 





46515 للاختيار من ضمن خيارات ‏ الاو لی في صف و احد والثانیه حسب الحجم المطلوب. 


يحتوي على جمیع الخصائص التي تعلمناها في او 1ب . 011601101 Items.Add Jia‏ و 


Items .Remove 


TextBox )5 6‏ 
Ahmed Gamal‏ 
lai‏ نصية تسمح للمستخدم بالکتابة داخلها . بعض خصائصها الاضافية 
ReadOnly‏ : جعلها للقراءة فقط. 
PasswordChar‏ : الرمز الذي يظهر في حالة جعل مربع النص للادخال. 
MultiLine‏ : السماح بجعلها متعددة الاسطر . 
MaxLength‏ : الطو ل الاقصی تلنص. 
ScrollsBar‏ : اشرطة MI‏ 2 . 


. النص بعد و صوله إلى حافة الأداة مثل برنامج 3599 مثلا‎ alain : WordWrap 
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حيث انها مشتقة من ia1.System.Windows.FPForms.ScrollableControl arah‏ 


سیکون بامکاننا اختیار وضع من ال enumeration‏ المسمی 5 1011۳61 د. 


تطبيقات سريعة على مريع النصوص 


- لجعل مربع النصوص لا يقبل سوى ارقام مثلا : 


private void TextBoxl_KeyPress (object sender, 
System.Windows.Forms.KeyPressEventArgs e) 
{ 
if ((e.KeyChar > 'O' | e.KeyChar > '9')) 
{ 


e.Handled = true; 


Private Sub TextBoxl_KeyPress (ByVal sender As Object, ByVal e As 
System.Windows.Forms.KeyPressEventArgs) Handles TextBoxl.KeyPress 
If (e.KeyChar « "O"c Or e.KeyChar > "9"c) Then 
e.Handled = True 
End If 
End Sub 





- البحث عن كلمة داخل مريع اللص > 


privare void فا تا‎ 9 sender, 5ysteom,.bvenLtATgs 6) 
{ 

اسهم pista Goats‏ اول Le‏ مق التق اتستعين 7 

int index; 

ff كلمة‎ decid 

string SearchWord = "Ahmed"; 


)81359 الانتقال // 


Text Boxh. Pocus (JF 

]323014231 فى شاه ei‏ المتغير قى الله ات مان Jig‏ 

index = TextBoxl.Text.IndexOf (SearchWord) ; 

Lf dyas الكلسة‎ pl باستخد‎ plat cies) الكلمة تاه اه قن‎ Leek, 
TextBoxl.SelectionStart = index; 

TextBoxl.SelectionLength = SearchWord.Length; 
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VB.NET 


Private sub Buctonl Click(ByVal sender AS System.Object; ByVal e As 
System.EventArgs) Handles Buttonl.Click 

: سيحتوي الاق الوا عي‎ as dal مان‎ «a1 eee 

Dim index As Integer 

"Gols dart 

Dim SearchWord As String = "Ahmed" 


FP iidgg $9] IL 

TIexrBoxl.Focust) 

(abe مكان‎ olds Gad] 1548 الا د‎ uud] فى ااه‎ Xa aid] 
index = TextBoxl.Text.IndexOf (SearchWord) 

وبطولها الكلعة يداي من التحدید paba‏ باستخد ام الکلمه تحدید ۲ 
TextBox1.SsSelectionStart = index‏ 

TextBoxl.SelectionLength = SearchWord.Length 


End sub 





Label 16.6 


Panel و‎ GroupoBox )7 6 





radioButton3‏ ها 
١ ١ radioButton4‏ 


أدوات حاوية يمكن وضع أدوات أخرى بداخلها. 
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RichTextBox (6 6 











زر pol‏ عادي جدآ « بحتوي على بعض الخصاتص Jio‏ | 


. مظهر زر الأمر‎ was :FlatStyle 
. من زر الامر‎ yal موضع‎ :TextAlign 


آداة نص تسمح لمحتویاتها ان تحتوي على تنسیقات مختلفة . الفارق بینها وبين TEXTBOX‏ هو 
الفارق بين Notepad‏ و «Wordpad‏ 

تحتوي على الخصائص الاضافية التالية: 

0 3 لتحديد التفاف النص. 

95 لتحديد sae‏ الأسطر . 

:Select‏ لتحدید جزء من النص عن طريق نقطة بداية ونهاية »او نقطة بداية وطول. 
:SelectionXXX‏ لتحدید تنسيق خط للجزء المحدد › مثل اللون .SelectionColor‏ 
5 © »ع : لتحديد عناوین الانترنت تلقائيا وجعلها قايلة للانتقال . 

كما يحتوي على الدوال الاضافية التالية: 

:LoadFile()‏ لفتح ملف نصي من مسار معين. 

:SaveFile()‏ لحفظ الملف في مكان معين. 


Ars pw أمثلة‎ 


- لقراءة محتويات اداة النص من ملف نصي ومن ثم الحفظ في ملف آخر > 
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RichTextBoxl.LoadFile(B"C:XAhmed,txt", 
RichTextBoxl.SaveFile(g"cC:XAhmed2, txt", 


الباب الرابع puc‏ 


RichTextBoxStreamType.PlainText); 
RichTextBoxStreamType.PlainText); 


VB.NET 


RichTextBoxl.LoadFile("C:XAhmed,txt'", 
RichTextBoxl.SaveFile("CO:VAhmed2.txt", 


ولو كان الملف نصي يحتوي على تنسیقات من النوع ۲1۳ فسنقوم بضبط النوع إلى 
RichTextBoxStreamType.RichText‏ بالشکل التالي Sis‏ : 


RichTextBoxStreamType.PlainText) 
RichTextBoxStreamType.PlainText) 





.LoadPile(g"DsXAMmed.rttf T, 
.SaveFile(@"C:\Ahmed2.rtf ", 


RichTextBoxStreamType.RichText); 
RichTextBoxStreamType.RichText); 


RichTextBoxl 
RichTextBoxl 


VB.NET 


RichTextBoxl 
RichTextBoxl 


تطبیق منال البحث الذي سبق عمله لأداة النص » و لکن هذه المرة سنقوم بتلوین کل 


نتاتج البحث ید لا من تحدیدها و احدة بالأخرى : 


.LoadFile("C:\Ahmed.rtf ", 
.SaveFile("C:NMAhmed2.rtf", 


RichTextBoxStreamType.RichText) 
RichTextBoxStreamType.RichText) 





awe wer oto 


int index = 0; 
while ((index 


{ 


richTSextBoxl.Text.IndexOr (tCextBoxl.Text, index)) I= -1) 


textBoxl.Text.Length); 
System.Drawing.Color.Reg; 


richIextBöxl Select (index; 
richTextBoxl.SelectionColor 


index += textBoxl.Text.Length; 


} 


MessageBox. show ("aS اة‎ 


7 الکلمات 03342 من 


VB.NET 


Dim index As Integer 0 

While (index riochlextBoxl.Text.lndexOrTt(bextBoxLl.Texb, 
richTextBoxl. [Select] (index, textBoxl.Text.Length) 
richTextBoxl.SelectionColor System.Drawing.Color.Red 
index += textBoxl.Text.Length 

End While 


index) ) 
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وسیکون ناتج التنفید بالشکل التالي : 


M Form2 =| m| x 











Call Stack 
الصورة 14. 13. نتائج تنفين شفرة البحث و التلوین.‎ 


Timer .9 6 


£3 timerl 
عمل‎ Atle تفید فى‎ Interval والذي يتم تنفيذه كل مدة معينة‎ Ticker لها حدث‎ cA $e آداة‎ 
اوامر تکراریه بفوارق زمنیه.‎ 


مثال عمل ساعة بالتوانی » قم بضبط خاصية Interval‏ إلى 1000 وهی ما تعادل ثانية و احدة c‏ 


ایضا قم بضبط Enabled austen‏ إلى True‏ ايضا وقم بکتابة الکود التالی فى الحدث STUCK‏ 


labell.Text = DateTime.Now. Hour + ":" + Datelime.Now.Minute + ": 
DateTime.Now.Second; 
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labell.Text = DateTime.Now.Hour + "=" + Daterime.Now.Mainute + "¢" + 
DateTime.Now.Second 





وسیکون الناتج Lind‏ مثل هذا : 


0:30:17 





الصورة 14. 14 . نتائج تنفين الشفرة. 


TreeView .10.6 


oe 


المجموعة الثانية È‏ 





الصورة 14. 15.الكائن .TreeView‏ 
لعرض آداة الشجرة » عنصرها الاساسي هو Nodes‏ والذي يمكن من خلاله اضافة أي عناصر 
و حذفها. 


يمكن التغییر في التنسيق وحتى اضافه صور و خلافه ضمن هذه الاداة : 
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المجموعة الثاتية È-‏ 


یمکنک التعرف على المزید عنها من الرابط التالي : 


رايط هي 


http://msdn.microsoft.com/en-us/librarv/svstem.windows.forms.treeview.aspx 





ProgressBar 1 0 
"- 








لعرض مؤشر التقدم © خصائصه الاساسية هي Minimum - Maximum‏ لتحدید الحد الاعلی 
والآدنى اضافة للخاصية Step‏ لتحدید مقدار التقدم كل مرة ۰ یمکنک تحدید Style‏ تعملية 
التقدم من خلال الخاصية Style‏ والتي تقرأ من ال enumeration‏ المسمی 
25716 328 8 1001605 ۳۲. 

Value Susie clues اتخاصمية الاحفا‎ canas: ces 


TrackBar [12.6 


مشابه لل Progressbar‏ لکنک انت من تتحکم بقیمته ۰ مثل Trackbar‏ الخاص برفع و خفض 


الصوت. 
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DateTimePicker {13.5 





Sunday , September 21, 2008 


1 September, 2008 d 


Sun Mon Tue Wed Thu Fri Sat 
3l 1 2 3 4 5 6 
7 8 9 10 11 1? 13 
14 15 16 17 18 19 20 

22 23 24 25 236 27 
26 29 لاد‎ 1 2 3 4 
3 6 i B8 9 10 1 

[| Today: 9/21/2008 





3,5 14. 16.الكائن DateTimePicker‏ 
آداة لاختيار التواريخ و او قات > یمکنک تحدید اسلوب Q2 x!‏ من الخاصية Format‏ لتحديد 
اسلوب التاريخ المعروض . يمكن الحصول على التاريخ المعرو ض من الخاصية Value‏ كما 


يمكن وضع ao‏ اقصی للتاريخ وحد أدنى عن طريق الخاصیتین .MinDate -MaxDate‏ 


£e 


Ola لذا أكتفى‎ o... جدوی من اضاعة الو قت فى التعرف على تفاصيلها‎ Mo ات ڪتير ۵ جدا‎ oa 


مه 


احیلک إلى موقع Sule‏ و سوفت حيث تجد شرحا تفصیلیا لكل آداة : 


رايط هي 


http://msdn.microsoft.com/en-us/librarv/aa984065(VS.71).aspx 


Dialogs ./‏ 
في بدایه مو Lic ou‏ عن المریعات الحواربه سنقوم أو لا بتصميم واحد خاص بنا › ثم في 


المرحلة الثانية سنقوم بالتعرف على استخدامات بعض المربعات الحوارية الشائعة. 


قم بانشاء فورم جديد 2 قم sL‏ خاصية ال Resizeable‏ > قم بضبط خاصيه 
FormBorderStyle‏ إلى FixedDialog‏ ©« قم باخفاء MinimizeBox‏ و 


MaximizeBox‏ ... بهذه الطريقة یکون تصميم آغلب Glas pet!‏ الحواریة. 


356 


الباب الرابع عشر برمجة النوافذ فى .net‏ 2008 


الآن قم بتصمیم المربع الحواري كما یحلو لك . في اي مربع حواري أو Dialog‏ یکون الناتج 
واخدا من العناصر المعرفة في enumeration‏ المسمی DialogResult‏ والذي يحتوي على 


> At LL القيم‎ 
Abort, Cancel, Ignore, No, None, OK, Retry, Yes 


لضبط الزر الذي يعيد القيمة OK‏ نضبط خاصية ال AcceptButton‏ للفورم على الزر 
المختار. 
انتا الام مت odis‏ تاه 32561 deb Sus‏ اتخاصية Cance utem‏ 


لاظهار فورم 859424 مریع حواري Dialog‏ نستخدم الأمر ShowDialog‏ بالشکل النالي مثلا: 


CH 


newDialog.ShowDialog(); 


VB.NET 


newDialog.ShowDialog() 
لقراءة القيم الناتجة عنه و معر 43 اي زر تم اخنیاره »۰ سنكتب الکود الخاص‎ da la ولكن ويما اننا‎ 


بنا بالشكل التالي على سبيل المثال: 





(newDialog.ShowDialog() == DialogResult.Cancel) 


// do something 


) 
else if (newDialog.ShowDialog() == DialogResult.Ok) 


{ 
// do something else 


If newDialog.ShowDialog() = DialogResult.Cancel Then 
۲ do something 

ElseIf newDialog.ShowDialog() = DialogResult.OK Then 
۲ do something else 

End LE 
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ولو حاولنا قراءة محتویات ال Dialog‏ سیکون لزاماً علینا تعریف القیم المطلوبة public‏ لذا 


قم متلا بتعدیل مربع اللص بالشکل التالي: 


CH 


public System.Windows.Forms.TextBox TextBoxl; 


VB.NET 


Public TextBoxl As System.Windows.Forms.TextBox 





MessageBox 4. 


النوع الابسط والأسهل من ال Dialogs‏ هو رسائل التحذير MessageBox‏ ۰ صو ر تها الأبسط 
بالشكل النالي: 
CH‏ 


MessageBox.Show("Welcome ..."); 


VB.NET 


Public TextBoxl As System.Windows.Forms.TextBox 


لو جربت معرفة البارميترات التي يمكن ارسالها للدالة Show‏ ستجد 20 overloads‏ تتیح لک 





التحکم بأي شکل في ر سائلک التحذيرية » سنستعرض اثنين منها هنا: 
- اظهار رساله نحد بر به كاملة 


CH 


MessageBox.Show("Welcome ...", "Title", MessageBoxButtons.OK, 
MessageBoxIcon.Exclamation); 


VB.NET 


MessageBox.Show("Welcome ...", "Title", MessageBoxButtons.OK, 
MessageBoxIcon.Exclamation) 
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» Welcome ... 


DialogResult reslt = MessageBox.Show("Do you want to save", "Title", 
MessageBoxButtons.YesNoCancel, MessageBoxIcon.Exclamation, 
MessageBoxDefaultButton.Buttonl); 
if (reslt = DialogResult.Yes) 

MessageBox.Show("you want to save."); 
else if (reslt = DialogResult.No) 

MessageBox.Show("you don't want to save."); 
else if (reslt = DialogResult.Cancel) 

MessageBox.Show("you cancel this operation."); 


VB.NET 


Dim reslt As DialogResult = MessageBox.Show("Do you want to save", "Title", 
MessageBoxButtons.YesNoCancel, MessageBoxIcon.Exclamation, 
MessageBoxDefaultButton.Buttonl) 
If reslt = DialogResult.Yes Then 
MessageBox.Show("you want to save.") 
ElseIf reslt = DialogResult.No Then 
MessageBox.Show("you don't want to save.") 
ElseIf reslt = DialogResult.Cancel Then 
MessageBox.Show("you cancel this operation.") 
End Ir 





هناك عدة اختيارات آخری > تتيح لک اظهار ملف مساعدة ... الخ ۰ يمكنك استعراضها من 


S9 رابط‎ 


http://msdn.microsoft.com/en-us/library/ svstem.windows.messadaebox.show.aspx 
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Dialog Controls .2 .7‏ 
بعد ان تعرفنا على النوع الأبسط من Glas poll‏ الحوارية و تعلمنا كيفية انشاء‌ها ۰ cle‏ الدور OS‏ 


على تعلم كيفية استخدام Glas pot!‏ الحو ارية الأساسية المو جودة ضمن الادوات... 


ColorDialog 53 7‏ 
مربع اختيار الألوان ۰ قم باضافته من ال ۲0۵0۱80۷ وسننشاً الآن مثالاً بسيطا لتغيير لون الخلفية 


لصورة مكلا : 





DialogResult re 
if (reslt == Di 

MessageBox) 
else rf {resit 

MessageBox gi 
erge Ir (reslt | 
Messageboxg 


.ColorDialog 1.الکائن‎ 7 .14 3,52 


ضف صورة PictureBox‏ زر آمر بسیط واكتب فيه الأمر التالی: 


LE (colorDialogl.ShowDialog() == DialogResult.ORK) 


PicturecBoxl,BackColor = ناقة ل وت‎ Color; 
else 
MessageBox.Show("cancel operation"); 
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If colorDialogl.ShowDialog() = DialogResult.OK Then 
pictureBoxl.BackColor = colorbialogliColor 


Else 
MessageBox.Show("cancel operation") 
End If 





هناك بعض الخصائص الاضافية في مربع الحوار هذا لکنها غير شائعة الاستخدام مثل 
AllowFullOpen‏ والتي تستطيع aie‏ المستخدم من اختيار غير الالوان القياسية بالشكل التالي 
مثلا: 


Basic colors: 

EI ۳ 5 | mI 
BEI HEEE 
E 7 1 15 15 7 5 6 
E 7 NE 15 15 15 15 للا‎ 
5 ۳ 1۵ 15 12 5 ۵ ۵ 


|] ۱۱_۱۱ d dg H H d | 
(A MW ال الا ال‎ 


Define Custom Colors >> 























الصورة 14. ColorDialog gitsn.18‏ مع الاتسغناء عن لو A‏ اختیار الألوان المتقدمة. 
والخاصية FullOpen‏ التي تظهرها بالکامل مباشرة بالشکل التالي مثلا: 
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BeBe 
mmmmmmm 


Define Custom Colors >> 





الصورة 14. 19. الكائن ColorDialog‏ مع لوحة اختیار الألوان المتقدمة. 


رابط تفصيلي من Sale‏ و سوفت: 


رابط هج 





FontDialog 7 


یستخدم لاختیار الخطو ط. سنقوم OF!‏ بعمل مثال لتغییر خط مربع نص: 
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to 55۲۰ Fj, 
E. H0} 

[۳1 want to save.*): 
It. cancel) 









void burtanl Clid 


void buttoni Clid 
;Dialaogi.ShowColor 


Dialogi. Fone = re 


الصورة 14. 20.الکائن FontDialog‏ . 


fontDialogl.ShowColor = true; 

tontDialogl.Font = texLBOxl.Font; 
fontDialogl.Color = textBoxl.ForeColor; 

if (fontDialogl.ShowDialog() == DialogResult.OK) 
{ 


textBoxl.Font — fontDialogl.Font; 
textBoxl.ForeColor = fontDialogl.Color; 


VB.NET 


fontDialogl.ShowColor = True 

fontDialogl.Font = textBoxl.Font 

fontDialogl.Color = textBoxl.ForeColor 

Ift fontDialogl.showDrialog() = DzalogResult.OK Then 
textBoxl.Font = fontDialogl.Font 
textBoxl.ForeColor — fontDialogl.Color 

End If 





رابط تفصيلي من مایکر و سوفت: 


رابط $9 


msdn.microsoft.com/en-us/library/system.windows.forms.fontdialog(VS.80).aspx 
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Open And Save Dialogs .5 .7‏ 
اشهر نوعین من المربعات الحوارية 6 في العادة يتم استخدامهم لتحدید عملية فتح الملفات 
أو تحدید مکان حفظها . سنقوم يعمل مثال بسیط نقوم من JUS‏ بفتح ملف نصي › التعدیل عليه 

Es 
ضف زر للحفظ وآخر‎ ۰ Multiline-True اضف مريع نص بسيط واجعل خاصية‎ 
بل سنضیفهم‎ SaveFileDialog و‎ OpenFileDialog للفتح › وأخيرا لن نقوم باضافة‎ 

من خلال الكود مباشرة. 
آول عملية لدينا هي استخدام المربع الحواري لتحديد الملفات النصية ومن ثم اختيار واحد منها: 


string fileToOpen = ""; 

OpenFileDialog openFile - new OpenFileDialog(); 
openFile.DefaultExt = "txt"; 

openPile.Filbter = "Word documents (*.Ltxt)]|*.Lxtr"; 


VB.NET 


Dim fileToOpen As String = "" 

Dim openFile As New OpenFileDialog() 

openFile.DefaultExt - "txt" 

openFile.Filter = "Word documents (*.LtXxt)|*.,txtct" 

If openFile.ShowDialog() = DialogResult.OK Then 
fileToOpen = openFile.FileName 

End I£ 


Aas اصبح لدینا مسار الملف في متخير› سنقوم یعملیه وضع محتوياته في مربع نص بطر‎ ou 
تعلمكاها ساف‎ 





if (fileToOpen !- "") 


using (System.IO.StreamReader sl = System.IO.File.OpenText (fileToOpen)) 
{ 

string input = null; 

textBoxl.Text = WT; 


while ((input = s1.ReadLine()) != null) 
{ 


textBoxl.Text += input; 
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VB.NET 


If fileToOpen >< "" Then 
Using sl As System.IO.StreamReader = System.IO.File.OpenText(fileToOpen) 
Dim input As String = Nothing 
textBoxl.Text - "" 
While (input = sl.ReadLine()) IsNot Nothing 


LtextBoxl.Text += input 


End While 
End Using 
End If 





ot‏ سنستخد A‏ مریع حوار الحفظ لتحدید المکان الذي نود فيه حفظ الملف: 


string fileToSave = ""; 
SaveFileDialog saveFileDialogl = new SaveFileDialog(); 
SavebileDialogl.Filter = "txt. files (*.LtXt)|*.EXClALI tiles I IL, 
if (saveFileDialogl.ShowDialog() == DialogResult.OK) 

fileToSave = saveFileDialogl.FileName; 


VB.NET 


Dim fileToSave As String = "" 
Dim 5076۳ 1161151001 As New SaveFileDialog() 
savePileDialogl.Bbilter = "txt files (*.EXD)|*.;EXL|AIL files (F=) |=, 
If saveFileDialogl.ShowDialog() = DialogResult.OK Then 
fileToSave = saveFileDialogl.FileName 
Bra. IT 





و کما تعلمنا سابقا » نقوم بحفظ الملف النصي في المسار الذي ald‏ المستخدم باختیار ه: 


if (fileToSave != "") 


using (System.IO.StreamWriter wl = System.IO.File.CreateText(fileToSave)) 
{ 


wWléWriteline (Text Box] Tex); 


} 
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VB.NET 


If fileToSave «» "" Then 
Using wl As System.IO.StreamWriter = System.IO.File.CreateText(fileToSave) 


wl.WriteLine(textBox1l.Text) 


End Using 
End If 





الناتج سیکون Lind‏ مثل هذا : 




















Example. w- e | l| $8 ۱۴ << 
| ۳ sani + g? button? Click(object sender, EventArgs e) 
sending information Ra 
books may be purchased 
|| educational business. orsa — 85 
promotional use. Online edil CJ E ob Ahr | ۱ 
zig ‘for most | Iz T ۲ AhmedGmal ۲ Documents F 
{salan oreiby com]. For moral [ m —M£€——Á c --- 
information, contact our Organize + ces Views 
0 Favorite Link: Name Date modified 
NET (4j Recently Changed اس‎ locker Downloads 
| More د‎ 
i ıJ My Chat Logs 
:4 ۷۲۵۶ void button2 JÎ Folders "Y | E My Completed Downloads 
1 Documents ~ ived Fi 
string fileToSave m ctl lodek لل‎ My Received = 
SaveFileDialog sS 9 B Je My Weblog Posts 
dJi KONAMI Q Updaters 
saveFileDialogi.EH k My Chat Log Je Visual Studio 2005 
dk My Complet | لل‎ visual Studio 2008 
if (saveFileDiala) Je. My Received 22i 
t 4y Weblog! | =, en 
if (saveFileD) dmg (&& My Sharing Folders 
| jtosend.txt 


1 ال‎ Visual Sudin 
File name: 


lal Hide Folders All files (7) 





الصورة 14. 21.الكائن OpenFileDialog‏ 
هناك بعض الخصائص الاضافية لکلا الكائنين » یمکنک الاطلاع على المزید عنهما هنا؛ 


رابط هج 


http://msdn.microsoft.com/en-us/library/aa287592(VS.71).aspx 





http://msdn.microsoft.com/en- 
us/librarv/svstem.windows.forms.savefiledialog.aspx 





Co‏ یمکنک تحدید نوع من الملفات او قراءة اسم المجلد او اسم الملف فقط ؛ تحدید أكثر من 
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PrintDialog .6.6 





tn Add Printer rn Microsoft APS Documen 
Eh Adobe PDF gh PrimoPDF 

iei Fax 

m Microsoft Office Document Image Writer 














Print to file 


Current Page 


1 


Enter either a single page number or a single 
page range. For example, 5-12 


الصورة 14. 22.الکائن .PrintDialog‏ 
يستخدم للتحكم في خصائص عملية الطباعه . يمكن ان يفيدك الرابط التالي من مایکر و سوفت: 


S9 رابط‎ 


http://msdn.microsoft.com/en-us/librarv/ svstem.windows.forms.printdialog.aspx 





8. أحداث الماوس 


آو لا لمعرفة الزر المضغوط من الماوس. سندهب إلى الحدث MouseDown‏ من 8236 ال 


Properties 
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PUEI LIES 
| E F 
J ua 


۳۵۲۲۲۱1 System. Windows. Forms. Form 


|Z) 2 


MdiChildActivate 

MinimumSizelhange 

MouseCaptureChang 

MouseClick 

MouseDoubleClick 

MouseDown 

MouseEnter 

MouseHover 

MouseLeave 
Occurs when the mouse pointer is over the 
component and a mouse button is pressed. 





الصور ô‏ 4 3 2. تحدید اسم الدالة التي تنفد عند 989 ¢ الحدث MouseDown‏ من 8436 


Sl e 3t 


ومن ثم نکتب الکود التالي: 


if (e.Button -- MouseButtons.Left) 
MessageBox.Show("Left click"); 

if (e.Button == MouseButtons.Right) 
MessageBox. Show ("Right click"); 

if (e.Button == MouseButtons.Middle) 
MessageBox.Show("Middle click"); 


VB.NET 


If e.Button = MouseButtons.Left Then 
MessageBox.Show("Left click") 

End Ir 

If e.Button = MouseButtons.Right Then 
MessageBox.Show("Right click") 

End lr 

If e.Button = MouseButtons.Middle Then 
MessageBox.Show("Middle click") 

Eng 1r 





و لمعر 48 النقطة التی يمر علیها الماوس Mia‏ فى حدث MouseMove‏ : 
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Cois- Text = "X4 E p oA E Te Torop uo 


VB.NET ۱ hyeme 








9. أحداث الکیبورد 


لقراءة الحدث الخاص بالزر المضغوط نکتب الأمر التالي Mie‏ في حدث: KeyUp‏ 


ڪو د | CH‏ 


this,.Text = "key: " + e,.ReyCode.ToStraingi); 


VB.NET 


Me.Text = "key: " + e.KeyCode.ToString() 
key و لکن لمعر 45 ما ادا كان هناك زر آخر مضغوط متلا مع الزر الحالي. سنضع الزر الأول في‎ 
بالشکل التالی:‎ Modifier والثانی فى‎ 





this.Text = string.Format("Key: {0} Modifier: [1)", e.KeyCode.ToString(), 
e.Modifiers.ToString()); 
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Me.Text = String.Format("Key: {0} Modifier: {1}", e.KeyCode.ToString(), 
e.Modifiers.ToString()) 





r 


ud Key: ControlKey Modifier: None 








طبعا Y‏ داعی لاخبار ك ان بامکانک قراءة الأحداث باستخدام If‏ وتنفین بعض العملیات بناء علیها 


3/0 








GDI+ puc الباب الخامس‎ 


GDI+ إلى‎ ägaäg . 1 


تتبع هذه pol gt!‏ مجال الاسماء System.Drawing‏ وتوفر لک حلو لا افضل من اجل 


رسومات D2‏ على الفورم والمخططات البيانية و خلافه ۰ تحتوي على الفئات الر ئيسية التالية: 


System.Drawing .1‏ الفئة الرئيسية ۰ تحتوي على الأقلام والفرش الاساسية التي 
تستخدمها في عملیات الر سم. 

System.Drawing.Drawing2D .2‏ : تقدم مجموعة آخری من الدوال التي تساعدك 
على الر سم مثل gradient brushes‏ و geometric transforms‏ 

System.Drawing.Imaging .3‏ : تساعدك في عملیاتک على الصور و قراءة البیانات 
الداخلية وقتقية الات Sataa‏ 

System.Drawing.Printing 4‏ : تساعدك على تحویل رسومات إلى صور للطباعة 
والتعامل مع الطاعبة. 

:System.Drawing.Text .5‏ التعامل بصورة رسومية مع الخطوط و خلافه. 


2 محتوبات مجال الاسماء System.Drawing‏ 


هو محال الاسماء الاساسي والأكثر استكداما ,آهم محتوياته هي: 


Bitmap‏ لحتواء معلو مات الصورة 
a Brush‏ شاة لعملية التلوین » و لها Bae‏ انواع 


double الرسم باستخدام تقنية‎ Buffer باستخدام هذا ال‎ aise, BufferedGraphics 


buffering 
الألوان التي يمكن استخدامها في عملیات الر سم‎ SystemColors Color 


والتلوین 
FontFamily‏ الخطوط التي يمكن استخدامها في عملیات 


النصوص. 
ar‏ ادر Ge‏ الكائن الاساسي في عمليات الرسم . والتي سنتعرف عليها لاحقا 
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ال abstract class‏ لكل ما یتعلق بعملیات الصور 


als‏ لعملیات الرسم . و له عدة آنواع 


تحتوي هذه الفئه على كل ما يتعلق بعملیات النصوص 





.System.Drawing مجال الاسماء‎ Gd الجدول 15. 1. آهم‎ 
Double Buffering 


هي تقنية تسمح للرسم بالاکتمال في buffer‏ مستقل ثم ظهوره للمستخدم مرة واحدة لتلافي 
مشكلة flicker‏ على العموم هي تقنية مشهورة في تقنیات الرسم یمکن التعرف علیها من هنا: 


رابط $9 








كما یمکنک معرقه المرید عن جميع محتوياتها من خلال هذا الر ایط : 


رابط هج 











Graphics Aiall 


الکائن Graphics‏ هو الکاتن الأساسي في عملية الرسم ۰ یمکن انشاءه بعدة طرق: 
- من الفورم » وينطبق عليه من 1011116۳5025 ۲ و خلاقه: 
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CH 


Graphics MyGraphic —Forml.crosteGcraphiocsui» 


VB.NET 


Dim myGraphic As Graphics = Forml.CreateGraphics() 





- أو من حدث الرسم oY‏ اداة کالفوم مثلا (e.‏ طریق الکائن PaintEventArgs‏ 
بالشکل التالي مثلا: 


private void Forml_Paint (object sender, PaintEventArgs e) 


{ 
Graphics myGraphic = e.Graphics(); 
} 


VB.NET 


Private Sub Forml_Paint (ByVal sender As Object, ByVal e As PaintEventArgs) 
Dim myGraphic As Graphics = e.Graphics )( 
End Sub 





ويحتوي هذا الکائن على الأوامر التالية: 
العنصر الو صف 


زان I a‏ عمل كائن aw)‏ من صورة مو جودة حالیا 


FromHwnd () 


۳ 1 01۳01۳0206 )( 


Clear ()‏ مسح محتویات الکائن 


DrawArc()‏ رسم صورة او شکل هندسي 


DrawBeziers()‏ رسم - Beziers‏ لا آعرف معناها و لکنها ترسم منحنیات. 


DrawCurve ()‏ رسم منحنی 
DrawEllipse()‏ رسم شکل بيضاوي 


Drawlcon()‏ رسم ایقو نة 
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Graphics aat دوال‎ «eai .2 .15 الجدول‎ 


لمزید من المعلو Cole‏ حول هذه الفثة و دوالها: 








والآن لعلت لاحظت Ol‏ جميع دوال الر سم 6 ۳ ([ تستخدم القلم os Lai Pen‏ التلو ین 
6 1 1 1 7 فهی تستخدم الفرشاة Brush‏ .لدا سنبداً بالتعرف على هذين الکائنین آو لا. 


Sr 


GDI+ puc الباب الخامس‎ 


Pen الفنة‎ 4 


يمكن استخدام PEN‏ في عملیات الرسم مباشرة عن طریق تحدید Pens.Blue Jis‏ للقلم 
الازرق و خلافه . الا آننا Le‏ زلنا قادرین على تعریف كائن منه والاستفادة من خصائصه المتعددة 
بالشکل التالي مثلا: 


CH 


Pen myPen = new Pen(Color.Black, 3); 


VB.NET ۱ nes 
قمنا بانشاء قلم يلون أسود 9 ص 3 .يمكئنا استخدام المرید من الخصاتص تلقلم عن‎ Co 


طريق تحديد Mie‏ شكل نقطة البداية: 





CH | كود‎ 
myPen.StartCap = LineCap.ArrowAnchor; 


VB.NET | EE 


myPen.StartCap = LineCap.ArrowAnchor 
: لمعر 49 المزيد عن خصاتص القلم‎ 


S9 رابط‎ 





http://msdn.microsoft.com/en-us/library/system.drawing.pen.aspx 


BB £c [ |‏ 
Brush Aidll a‏ 
بنفس الطريقة › یمکن انشاء فرشاة باللون الأصفر كأبسط مثال بالشکل التالي: 


CH 


ooclidBrush myBrush = new Soladerush (Color.vellow); 


VB.NET | qn 
Dim myBrush As New SolidBrush (Color. Yellow) 
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یمکن ایضا انشاء فرشاة بأكثر من لون بالشکل التالي مثلا: 


ڪو د CH‏ 


HatchBrush myBrush = new HatchBrush(HatchStyle.BackwardDiagonal, Color.Green, 
CoO LOE. WILLE); 


VB.NET 


Dim myBrush As New HatchBrush(HatchStyle.BackwardDiagonal, Color.Green, 
Color.White) 





رابط هج 


http://msdn.microsoft.com/en-us/library/ system.drawing.brush.aspx 


6 الرسم 


بعد ان انشأنا کائننا الخاص للرسم ‏ یمکننا البدء في رسم خط مستقیم بالشکل التالي مثلا: 


CH 


nyveraphic.DrewLinelsenuns.blue. 205 205, 4200, 100); 


VB.NET 


CH 


myGraphic.DrawRectangle(Pens.Blue, New Rectangle(20, 20, 


VB.NET 


myGraphic.DrawRectangle(Pens.Blue, New Rectangle(20, 20, 100, 100)) 








D 


VB.NET 


myGraphic.DrawBezier(Pens.Blue, 10, 20, 50, 80, 10, 





بامکاننا رسم خط مستقیم ولکن باستخدام كائن قلم سبق تعريفه و تحدیده بأنه منقط بالشکل 
التالی مثلا: 


Graphics myGraphic = e.Graphics; 

Pen myPen = new Pen(Color.Blue, 3); 

myPen.DashStyle = System.Drawing.Drawing2D.DashStyle.Dot; 
myGraphic.DrawLine(myPen, 20, 20, 100, 100); 


VB.NET 


Dim myGraphic As Graphics = e.Graphics 

Dim myPen As New Pen(Color.Blue, 3) 

myPen.DashStyle = System.Drawing.Drawing2D.DashStyle.Dot 
myGraphic.DrawLine(myPen, 20, 20, 100, 100) 


أو لرسم مسار من عدة خطوط على شکل مثلث مثلا: 





GraphicsPath myGraphicPath = new GraphicsPath(); 
myGraphacPath,.,StartFrgure(; 

myEPath.AddLinetlU0, 10, .30, 90); 
myPath.AddLine(30, 60, 60, 10); 
myParthi.Addbrine(o0, 10, 10, 10); 
myGraphicPath.CloseFigure(); 
myGraphic.DrawPath(myPen, myGraphicPath); 


VB.NET 


Dim myGraphicPath As New GraphicsPath() 
myGraphicPath.StartFigure() 
myPath.Addhzne(l0, 10, 30; 60) 
myPath.AddLine(30, 60, 60, 10) 
myPath,.AddLinet(o0, 10, 10, 10) 
myGraphicPath.CloseFigure )( 
myGraphic.DrawPath(myPen, myGraphicPath) 


أو رسمه ملونا نغیر السطر الأخير لیکون FillPath‏ مع تمریر الفرشاة المناسبة 
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رسم النصوص هو قسم آخر من عالم ال GDI‏ أبسط مثال عليه هو الکود التالي لرسم نص بفر شاة 
حمراء و بلون آحمر في النقطة 0 و 200. 
CH‏ 


myGraphic.DrawString("Hello GDI+", new Font ("Times New Roman", 
Brushes.Red; 200, 200); 


VB.NET 


myGraphic.DrawString("Hello GDI+", new Font("Times New Roman", 30), 
Brushes.Red, 200, 200) 





لکن لاحقا یکون بامکاننا استخدام الکائن StringFormat‏ واضافته إلى متغیرات الرسم ۰ لكي 


نرسم مثلا نصا بصورة عموديهكه: 


Graphics myGraphic = e.Graphics; 

StringFormat drawFormat = new StringFormat(); 
drawFormat.FormatFlags = StringFormatFlags.DirectionVertical; 
myGraphic.DrawString("Hello GDI+", new Font ("Times New Roman", 30), 
Brushes.Red, 100, 20, drawFormat) ; 


VB.NET 


Dim myGraphic As Graphics = e.Graphics 

Dim drawFormat As New StringFormat() 

drawFormat.FormatFlags = StringFormatFlags.DirectionVertical 
myGraphic.DrawString("Hello GDI+", New Font("Times New Roman", 30), 
Brushes.Red, 100, 20, drawFormat) 





سیکون الناتج Lind‏ مثل هدا: 


4D Example. Windows Forms 


am 
C 
o 
C 
z 
+ 





الصور ô‏ 1.15 ر سم اللص على النافدة بالکو د. 
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اختم الدرس بمثال جيد لیکون تطبیقا على دروس الرسومیات لدينا ۰ المثال موجود على هذا 


الرابط وهو لرسم ساعة بالشکل التالي: 





رابط المثال: 
رابط هج 


http://www.java2s.com/Tutorial/CSharp/0480 . 2D/Clockanimation.htm 
› الطریق فيه‎ Soi آخشی انني لم استطع الا وضعك على‎ GDI هناك الکثیر جدا في عالم ال‎ 


یمکنک الاستزادة die‏ من هنا . 


رابط هج 


http://msdn.microsoft.com/en-us/librarv/ ms533798(VS.85).aspx 


382 





Windows 
Presentation 
Foundation 


الباب السادس عسر WPF‏ 
1 . تعریغات أساسيةَ 


WPF 1 1 


Windows Presentation Foundation‏ أو ما يعرف WPF aul ees‏ هي تقنية رسومية 

جديدة من مایکر و سوفت بدأت مع 3.0 .net framework‏ تعتمد على ما یعرف باسم Extensible‏ 
Application Markup Language‏ واختصارا باسم XAML‏ و تنطق (زامل). وهي تعتبر الجیل 
الجدید من تقنیات مایکر و سوفت في الواجهات المرثية بعد Windows Forms‏ و GDI+‏ و DirectX‏ 
APIs‏ و Windows Media Player API's‏ تلو اجهات والرسومات ثنائية و ثلاثية الأيعاد و الفیدیو 


على التر تیب. 


Lei‏ مع WPF‏ فقد اصبح یامکانک التحكم بجمیع هذه النقاط ایتداء من تصميم الواجهات 


وانتهاء بالتصمیم التلاتثى الأبعاد و الفیدیو من خلالها. 


XAML 1 


تهدف XAML‏ إلى الفصل بين الکود والتصمیم بصورة كاملة متلما كان يحدث فى صفحات 
ASP.net‏ . حيث تعد XAML‏ شبيهة ب HTML‏ الذي تستخدمه لتصمیم صفحاتک - مع الفارق - 


حيث أن ال XAML‏ آقرب إلى نظام لغات البر Ace‏ حيث يحتوي على فئات و خصائص ... الخ. 


Microsoft Expression .3 1‏ 
Gotu‏ و Dies‏ التضمیم Syke‏ هن Ao gems‏ من عملیات الرسومیات » یتم تعریقها La Aa tad‏ 
في الفیجوال ستودیو ۰ في حين تظل مجرد صور في برنامج لتحریر الصور photoshop Jis‏ 
ويطريقة أخرى في برنامج مثل Adobe Flash‏ .. تخيل الآن ان لدیڪ برنامج متخصص في 


الرسوميات ينتج الرسومات بصورة يمكن فهمها فى بيئة التطوير الخاصة بك ؟ 


كانت هذه هى فكرة Expression‏ > حيث تعتبر برامج متخصصة فى التصميم التابت 
والمتحرك وخلافه › ولكن الناتج يمكن أن يكون على شكل XAML‏ يمكن استخدامه فى تطبیقاتک 


المختلفة بسهو ل4. 
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هناك sae‏ اصدارات من هذه البرامج منها المخصص للويب ومنها الرسومی الشبیه 
بالفو 93 شوب او الشبیه بالفلاش . لکننا نتوسع في شرح هذا البرنامج » ولکن ضع هذا البر نامج في 
اعتبار ك طيلة فترة Liles‏ على ال WPF‏ حيث یمکن انتاج XAML‏ الذي نستخدمه من خلاله . 


كانت هذه مقدمة سريعة جدا . سنعود لنبدء عالم ال WPF‏ من البدایة. 


2. انواع تطبیقات WPF‏ 


تطبيق ۷۷۳۲ ليس مجرد تطبيق تقليدي فقط » بل يمكن ان يظهر على أكثر من شكل ۰ سنحاول 
التعرف على هذه الأشكال الآن. 


Traditional Desktop Applications -1 


النو ico Yt e‏ شیوعا ٠‏ تطبیق تقليدي exe‏ » ال WPF‏ مجرد طريقة لتحسين المظهر والواجهات 
و SS‏ 43 . 


Navigation-Based -2 


یمکنک من خلال WPF‏ اختیار تطبیقک لیکون تطبیق عادي و لکن ندیه خصائص المتصفح 
لديك Forward‏ و Gus Backward‏ یمکن للمستخدم التنقل بين صفحات تحددها cài‏ فى pages‏ 


لا جدید في كونها تطبیق Gale‏ سوی مبدئ التصفح. 
XBAP Applications -3‏ 


ميزة جديدة من مميزات WPF‏ لبناء تطبيق يعمل من خلال المتصفح » شبيه 58 يميداً ال 
JAVA Applet‏ حيث يتم الوصول إليه من خلال عنوان URL‏ » يقوم بتحميل XBAP application‏ 


فى ال local machine‏ ويقوم بتشغيلها. 
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Silverlight Application -4 


من خلال Las WPF‏ یمکنک elu‏ تطبیقات يتم استضافتها من خلال المتصفح مباشرة 
شديدة الشبه ب embeded flash‏ الموجود في صفحات có CAN!‏ المختلفة « یتمتع ال Silverlight‏ 


بامکانیات غنية فى المظهر و التنفین على حد سواء. 


WPF محتویات‎ .3 


WPF العناصر الأساسية لل‎ : System. Windows 


و 101 ]۰00۳1 ۰111۳00175 610 51 5۷: تحتوي على Ae game‏ من العناصر اللازمة clit‏ تطبیقک 


مثل القوائم وال Tool Tips‏ و خلافه. 
Glial System. Windows .Markup‏ الخاصة agar‏ وتنفين صیغ XAML‏ 


AS الخاصة بالتعامل مع الفیدیو والصور المتحر‎ Glial :System.Windows.Media 


.3D والتصامیم‎ 


Navigation-¢ الخاصة بالتعامل مع النو‎ cua :System.Windows.Navigation 


0 من التطبیقات الذي و ضحناه سابقا. 


2D مجموعة من الادوات لعمليات التصامیم‎ :SyStem.Windows.Shapes 
WPF تطبيقك الأول فى عالم‎ 4 


clu lise‏ تطبیقات WPF‏ بدون الاعتماد على Lists XAML‏ سنتجاوز هذه المرحلة لنتعلم 


مباشرة كيفية clin‏ تطبیقات WPF‏ باستخدام XAML‏ 


لو كنت قد جربت سابقا التعامل مع HTML‏ فأنت ستکون قد اجتزت نصف المر حلة 6 ولمن هذه 


هي المرة الأولى بالنسبة لهم فقد كانت ال HTML‏ تعتمد على Tags‏ بالشکل التالي Iu‏ 
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HTML ۱ eem 


<a href="Ahmed.html">Ahmed</a> 


الکود السابق يعني رابط Link‏ يشير إلى الصفحة Ahmed.html‏ في حين ان النص المعرو ض 


للمستخدم هو .Ahmed‏ 





هناك طريقة آخری لاکواد ال HTML‏ بالشکل التالي مثلا: 


HTML ۱ em 


هذا الکود یعنی صورة لدیها ToolTip‏ و لیس لها حدود » لو لاحظت فليس لها Tag‏ نهاية. 
لو كنت ترغب بمعرفة المزید عن HTML‏ یمکنک البدء من هنا باللغة العربية : 


رابط هج 








http://www.html4arab.com/ 
اکثر من ساعتین في تعلمه + سیکون مفیدا .عدا لک في‎ ARD ستکون معلومات سريعة + لن‎ 
أو الفیجوال ستودیو في تطبیقاتک‎ DreamWaver fis Ol gat حتی مع استخدام‎ F تطویر المواقع‎ 

فمن المفضل التعرف علیها - شخصياً استخدم لبناء مواقعي ال Notepad‏ في الغالب. 
المهم 2 هذا هو كل ما نحتاج إليه للبدء في عالم XAML‏ ۰ بنفس الطريقة سیتم gi‏ صیف الأدوات 


الخاصة بنا « فهذا زر آمر مثلا: 





XAML | ans 


<Button Height="80" Width="100"> 


وهدا النوع الآخر: 





XAML ۱ sn 
<Button Height="80" Width="100" Content="ClickMe"/> 


يمكن ان یکون لديثا زر آمر يحتوي بداخلة على عناصر آخری . هذا مثال: 





«Button Height = "80" width = "100"> 
«Burtton.Conternct» 


«ScrollBar Width = "75" Height = "40"/> 
«IButton.Contenr» 
«/Button» 





لكن المثال التالي bL‏ ترا لان ال Scroll‏ ليست مشتقة من COnrenrc ont rol ah‏ 
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«ScrollBar Height "80" Width = "100"> 
<Button Width = "75" Height = "40"/> 
</ScrollBar > 








cal ..‏ من خلال فيجوال ستودیو 
الآن اقتح Visual Studio‏ . قم باختیار New Project slås‏ ۰ قم باختیار WPF Application‏ 


بالشکل التالي: 


Visual Studia installed templates 
8l Windows Forms Application E Class Library 
UB ASP.NET Web Application ASP.NET Web Service Application 
V] WPF Application "ts! WPF Browser Application 
console Application fx Excel 2007 Workbook 
($ Outlook 2007 Add-in AS WCF Service Application 
ie Word 2007 Document Al Windows Forms Control Library 
My Templates 
Cf] ASP.NET AJAX Control Project طعر معو ین‎ Online Templates... 


5mart Device 
Office 
Database 


Database Projects 
: Other Languages 
Distributed Systems 
Other Project Types 
` Test Projects 

























































































Windows Presentation Foundation client application (.MET Framework 3.5) 


Name: Wot Application’ 


Location: CA\Users\ Ahmed Documents Viswal Studio 2008) Projects 


Salution: Create new Solution - 
Solution blame: WgfAgplicatien3 





الصور ô‏ 6 1. انشاء مشرو WPF e‏ جدید. 


قم بوضع زر أمر ومربع نص . ثم لاحظ شاشة ال XAML‏ » بالتحدید قم بالتر کیز على الجز ء 
التالى: 


مه 
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الصور ô‏ 16. 2. محر J‏ 
شضرات ال XAML‏ ۱ 0 1 


۳1 


تن dif‏ كما .ار D‏ 
بالفعل قام يعمل انشاء 
كود XAML‏ لكافة عناصر bie‏ 

ati‏ : |> ااال لك سے 

لفور م و و ضعها Design ^ —EXAML | maw] pem‏ يا 
العنصر Window‏ ثم | Ir‏ 


۱ تجد يعض‎ Ls Grid 





























xmins="http://schemas.microsoft.com/wintx/2006/xeml/presentation”™ 
zmins:x-"hrtp://schemas.microasnfr.com/winfz/2006/xami" 
Title="Windowl" Heighte"300" Width="300"> 
xGrid» 
«Burton Height="23" Marginz"98,0,105,51" Name="buttoni" VerrticalAlignment="5 
zIextBox Height@="23" Margine"77,80,81,0" Hamez"utLextBHoxzi" VYerticaléAlignment=" 
</Grid> 
ار‎ Windows 








العناصر الاضافية في حالة 

التصميم . الآن اصبح 

m. ۳ l یامکانک كتابة كود‎ 
Button (button1) Window/Gnd/Butten | 

۱ او الاعتماد على 

التصميم كما تفعل مع تطبیقات الویب 7 إن كنت مبرمج ویب - . 

سنحاول الآن التعديل في خصائص WindOoW‏ لتغيير عنوان الفورم » قم بمسح الخاصية 11116 

ثم اذهب إلى نهاية الوسم وابدأ بكتابة مسافة ومن ثم نقوم باختيار Title‏ ومن ثم نكتب WPF‏ "= 

۲ بالشکل التالي مثلا؛ 

| | هي‎ Design ^ fl AAM | | | mim 


=] <Window x: Classz"WpfApplicationz .Windowi" 































































xmlnsze"http://schemas.microsoft,.com/winfx/2006/xaml/npresenration" E 
xmlns:xe"http://schemas.microsoft.cam/winfx/2005/xaml" 
| litle-""Windowl" Heightc-"300" Width=" 300" tib - 





-] «Grid» wh Ted 
¿Button Heighrz"23" Marginz"59,0,1]! وی‎ 
| F Textinput 


| €TextBox Heightz"23" Marginz"77,8l : 
- " ; ۱۱ TextSearch 


</Grid> | 
€ | 13 Thumb 


| ١ (9 TeggleButton ی‎ 
gal Ti, 4 | ۰۲ TeelBarTray | ' 


1 ; ToolTip 


[ 1 ۳۳۱2 ۲۱ t=" Br 
BRlAlignmentz"] 








* ToolTipClasing E : 
# ToolTipOpening i 2X 

















الصورة 16. 3. محرر شفرات ال XAML‏ و تعدیل الخصائص من الکود مباشرة. 
سیکون الکود الاجماني XAML‏ بالشکل التالي: 


391 


WPF pue الباب السادس‎ 


«Window x:Class-"WpfApplication2.Windowl" 
xmlns-"http://schemas.microsoft.com/winfx/2006/xaml/presentation" 
xmlnsix-"htto://schemas mlcrosort,.com/winTx/2006/xaml" 
Height="300" Width="300" Title-"WPF Example"> 
<Grid> 


«Button Height="23" Margin="99,0,105,91" Name="buttonl" 
VerticalAlignment-"Bottom" Click-"buttonl Click">Button</Button> 
«TextBox Height="23" Margin="77,80,81,0" Name="textBoxl" 
VerticalAlignment="Top" /> 
</Grid> 
</Window> 





لاحظ ان بامکانک التحکم في جمیع الخصائص لكل الادوات بنفس الطر يقة. 
OS‏ جرب كتابة آمر بالضغط على زر الأمر مرتین» ستجد نافدة مستقلة للکود غير تلك التي 


للتصميم» اكتب فيها الأمر التالي مثلا: 


private void buttonl Click(object sender, RoutedEventArgs e) 


{ 
textBoxl.Text = "Welcome WPF"; 


} 


VB.NET 


Private Sub buttonl_Click (ByVal sender As Object, ByVal e As RoutedEventArgs) 
textBoxl.Text = "Welcome WPF" 
End Sub 





۷ WPF Example ماه‎ m والناتج:‎ 


5 لصورة 16. 4. نتيجة التنفین.‎ 
Welcome WPF ii | diui 6 ره‎ | 





ایضا یمکنک کتابة الکود في نفس شاشة التصمیم 
بالشكل التالى: 
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«x:Code» 
«![CDATA[ 
void CodeExample(object sender, RoutedEventArgs e) 


( 


MessageBox. Show ("ahmed") ; 
} 


Hr 


«/x:Code» 





مع جعل اسم الدالة على الاسم الذي اخترته في الحدث Click‏ لزر الأمر بالشکل التالي مثلا: 


«Button Height-"23" Margin-"529,D,105,91* Name-"huttonl" 
VerticalAlignment="Bottom" Click="CodeExample">Button</Button> 





ونفس النظام بالنسبة ل VB.net‏ ایضا أثناء کتایتک للحدث Click‏ یمکنک من خلال Visual‏ 


Q0 حدت جدید مباشر‎ eLaaiStudio 


خاتمة الحزء الأول - نقاط سريعة 
- لو كنت تبحث عن معرفة ال Syntax‏ الخاص ب XAML‏ بتوسع یمکنک البدء من هنا: 


رابط $9 


http://msdn.microsoft.com/en-us/library/ ms788723.aspx 





- لاعتماد آحداث ال FormLoad‏ و خلاقه یمکنک اضافتها ل Window‏ بالشکل التالي مثلا؛ 
XAML | RH‏ 





Loaded = "Window Loaded" Closed = "Window Closed" 


ونفس الأمر مع جمیع آحداث و خصائص كل ال2دو ات. 
- لو استمررت بهذه الطريقة مع Cola WPF‏ تعطي لنفسک المزید من التحکم بالمظهر ۰ لکن لو 
كنت ترید جمال الواجهات و خلافه فیمکنک البدء مع Microsoft Expression Blend‏ من ضمن 


مجمو Microsoft Expression àe‏ » هذه صورة تلواجهة الرئيسية متلا 
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m | 
TW ۱۳۵۹۳۳۵۳۹۱۲۱۳۲ ۱0۲۵۲] Expression Blend بك لا ره‎ 











Infragistics” 
Windays Presen 





الصورة 16. 5. استدیو ال .Expression Blend‏ 


ناتج تصمیمک سیکون XAML‏ یمکنک وضعه في ال Visual Studio‏ مباشرة وسنتعرف علیها 


فى درو س قادمه . 
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WPF ادوات‎ .6 


اضافة للادوات التقليدية 2 توفر لک WPF‏ مجموعة من الادوات الحديدة 6 أو تغیر من 


مظهر ها و خیاراتها من أجل استخدامک لها. 


آو لا | مجموعة الآدوات التقليدية مجموعة الادوات المعتادة التي تضم Lable, Button‏ 


وباقي الأدوات العادية » فقط تتمتع ببعض الخصائص الاضافية لتجمیل و تحسین المظهر . 
LOG‏ : آدوات الفورم مثل القوائم واشرطة التمریر و خلافه. 
ثالتا : آدوات ال media‏ مثل آدوات الصوت و الصورة والفیدیو و خلافه. 


Lal,‏ > آدوات المظهر تضم بعض الادوات الاساسية مثل ال Groupbox‏ وال Panel‏ و آخری 


3.52 مثل Canvas‏ و StackPanel‏ . 
الصورة توضح مجموعة من آدوات WPF‏ المختلفة 


| B' Windowl 


w Fle (+) Help 














الصورة 16. 0. تر کیب عدة آدوات WPF‏ مع بعضها البعض. 


وحکود ال XAML‏ الخاص بها بالشکل التالي: 
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«Window x:Class-"WpfApplication3.Windowl" 
xmlns-"http://schemas.microsoft.com/winfx/2006/xaml/presentation" 
xmlns:x-"http://schemas.microsoft.com/winfx/2006/xaml" 
Title="Windowl" Height="240" Width="343"> 
<Grid> 

«Button Name-2"ptnPurchaseOptions" Margin="10.5,51,10.5,41"> 
<StackPanel> 
<StackPanel Orientation = "Horizontal"></StackPanel> 
</StackPanel> 
رو تلن رك‎ 
«Expander Name-"helpExpander" Header="Help" Height="23" 
HorizontalAlignment-2"Left" Margin="70,70,0,0" VerticalAlignment="Top" 
Width="51.757"></Expander> 
<Expander Name="fileExpander" Header="File" Height="23" 
HorizontalAlignment="Left" Margin="22,70,0,0" VerticalAlignment="Top" 
Width="44.95"></Expander> 
«Slider Height="21" Margin="21.757,0,19,75" Name="sliderl1" 
VerticalAlignment="Bottom"> 
<Slider.BitmapEffect> 
<DropShadowBitmapEffect /> 
</Slider.BitmapEffect> 
</Slider> 
<ProgressBar Height="15" Margin="23,0,19,50" Name-"progressBarl" 

VerticalAlignment="Bottom" Value="50" /> 
«/Grid> 

</Window> 





نقاط سريعة حول آدوات WPF‏ 


- الآشکال البیضاو )4 Ellipse:‏ لتحدید الأشكال البیضاو Ay‏ و الدو اثر و خلاقه. 
LISE pole -‏ أو ال ComboBox‏ اصبح بالامکان تحدید لون وخلفية مختلفة لكل منها بالشکل 
التالي مثلا: 

T} Windowl سا‎ 
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الصورة 16. 7. التحکم في عناصر ال .ComboBox‏ 
- يمكن تفعیل خاصية تصحیح الخطاً SpellCheck‏ في أي مربع نص بالشکل التالي مثلا: 


«TextBox SpellCheck.IsEnabled-"True" Height="23" Margin="20,44,16,0" 
Name-"textBox1" VerticalAlignment="Top" Grid.Row="10" /» 





ویمکن معر فة البدائل للخطأ المو جود عن طریق US‏ كود مثل النالي: 


string alterWords = "t"; 
SpellingError error - textBoxl.GetSpellingError (0); 
if (error !- null) 
{ 

foreach (string s in error.Suggestions) 

{ 

alterWords += s + "An"; 
} 


MessageBox. Show ("Alternative Words:\n" + alterWords) ; 


VB.NET 


Dim alterWords As String = "" 
Dim [error] As SpellingError = textBoxl.GetSpellingError (0) 
If [error] IsNot Nothing Then 


For Each s As String In [error].Suggestions 
alterwWords t= 3 + "UM Obhpr(l0) 4 5" 
Next 


MessageBox.Show("Alternative Words:" & Chr(10) & "" + alterWords) 
End If 





والناتح سیکون Lind‏ مثل هذا 
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Alternative Words: 
information 








في ال WPF‏ ۰ نستطیع ربط قيم عناصر بطريقة مباشرة ۰ مثلاً لربط قیم Slider‏ ب 
۲ مباشرة . نقوم باضافة فقط الجزء التالي للأداة المراد ربطها: 


DataContext = "(Binding ElementName-slider1j" Content = "(Binding Path=Value}" 


«Slider Height="27" Margin="20,40,16,0" Name-"sliderl" VerticalAlignment="Top" 
To 

«Label Height="28" DataContext = "(Binding ElementName=slider1}" Content = 
"{Binding Path=Value}" Margin-"20,72,16,0" Name="label1" 
VerticalAlignment="Top" BorderThickness="0"> 
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الصورة 16. 9. استغلال خاصية ربط البیانات. 


WPF 2D .8 


دنعود مرة آخری لعالم الرسومیات ثنائية البعد ولکن في ال WPF‏ هذه المرة ۰ سنتعرف 


على تقنیات شبيهة بتلک التی تعاملنا معها فى GDI+‏ و لکن هذه المرة من WPF SH‏ 
بداية تحتوي خیارات الر سم على واحد من الفتات التالية: 


System.Windows.Shapes 
System.Windows.Media.Drawing 
System.Windows.Media.Visual 


8 . الرسم باستخدام Shapes‏ 
تقع جميع الاشکال تحت )444 System.Windows.Shapes‏ . نبدأ بابسط JU‏ 


«Rectangle Height="100" Width="200" Stroke="Red" StrokeThickness="2" 
Fill-"Aqua" /> 





الناتج سیکون بالشکل التالي: 
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57 Windowl =o 





الصور ô‏ 6 10. رسم مسنطیل مع خاصية الحواف و التلوین. 
الأشكال التي یمکنک رسمها یمکنک الوصول الیها عن طریق Object Browser‏ بالشکل التالي مثلا 


| System. Windows. shapes - kd S| 





| et} System. Win dows.Shapes 
...تج‎ Ellipse 

ca Se Line 

5.۶ Path 

i Polygon 

ag Polyline 

ca Me Rectangle 

a-g Shape 


الصورة 16. 11. متصفح ال .Object Browser‏ 
ویمکننا التعرف على الخصائص التي يمكن ان نجدها JSG CY‏ منهم › الشکل التالي كمثال: 
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Browse: All Components = د‎ | 3a | E~ 





| System. Windows Shapes EJ X pe ArrangeOverride(System, Airidas: sSize] 


| = ow CacheDefiningGeometry() 
8-4 System. Windows.Shapes | هی‎ GetDefiningGeometryBoundsi) 











| E Fx 
i 4 T Ha” GetNaturalSize() 
3 es "d my MeasureOverride(System.Windows.Size) 
J gê OnRender(System. Windows. Media. Drawing Context] 
E es Polygon a Rectangle 
١ 3 a il L DefiningGeometry 
3 Re " SA EffectiveValuesInitialSize 
E 2 a pase Types LAR GeometryTransform 
d ape | a RadiusX 
5 ay FrameworkElement LA RadiusY 
وي‎ 24 Shape n 
| الو‎ RenderedGeometry 


=F RadiusXProperty 
w RadiusYProperty 


hk 


[pubiic sealed class و وتو‎ 





Hr 


Member of System, Windows. Shapes 


Summary: =| 


الصورة 16. 12. متصفح ال Object Browser‏ 


كما یمکنک التعرف على Shape di audi cosi ctu‏ الموجودة في الصورة التالية مثلا 
t Ee DefiningGeometry‏ 
a Fill‏ ۱ 
m Geometry Transform‏ 2 7 
mm IsPenNoOp‏ 
set ie- RenderedGeometry‏ 7 
E Stretch‏ = 7 
rh Stroke‏ == 
NA StrokeDashArray‏ 
set SA StrokeDashCap‏ 7 
a StrokeDashOffset‏ = 7 
v a StrokeEndLineCap‏ : 
a StrokeLineloin‏ 
-P StrokeMiterLimit‏ 
es Ff StrokeStartLineCap‏ ۱ 
E- SHoke ERS‏ = 


4 1 Tm 





الصورة 16. 13. خصائص ال .Shape‏ 
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خصانص القلم Pen‏ 





«Pen Thickness="10" LineJoin-"Round" EndLineCap-"Triangle" StartLineCap="Round" 


{> 





-GDI+ لاحظت يما تعلمناه في‎ 3d dass dad 








خصائص الفرساة Brush‏ 


هناك عدة انوع من الفرش يمكن استخدامها في تطبيقاتك › منها: 











225 
مد و 


Gale تلوین‎ :DrawingBrush 

:ImageBrush‏ تلوین جزء من JS‏ بجزء من صورة. 
:binearGradientBrush‏ تدرج خطي لعدة الون. 
:RadialGradientBrush‏ تدرج داثري لعدة الوان. 
15 01۳5 0001 1 501: فرشاة للون واحد فقط. 

أبسط مثال علیها هي الفر Solid sta‏ يلون واحد فقط: 


«Ellipse Height ="50" width ="50"> 
<Ellipse.Fill> 


<SolidColorBrush Color ="Aqua"/> 
€c/Ellipse.Fill» 
«/Ellipse» 





مثال باستخدام RadialGradientBrush‏ للتدرج الداثري: 
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<Ellipse Width ="75" HorizontalAlignment-2"Left" Margin-"28,30,0,96"» 
«EllipsePLille 
<RadialGradientBrush GradientOrigin="0.5,0.5" Center="0.5,0.5" 
RadiusX-"0.5" RadiusY="0.5"> 


<GradientStop Color="Yellow" Offset="0" /> 
<GradientStop Color="Red" Offset="0.25" /> 
<GradientStop Color="Blue" Offset="0.75" /> 
<GradientStop Color="LimeGreen" Offset="1" /> 
</RadialGradientBrush> 
</Ellipse.Fill> 
</Ellipse> 





و آخیرا مثال لطباعة جرء من صورة داخل شکل: 


«Rectangle Height ="100" Width ="300"> 
<Rectangle.Fill> 
<ImageBrush> 
«ImageBrush.ImageSource-» 
<BitmapImage UriSource ="pic.JPG"/> 
</ImageBrush. ImageSource> 
</ImageBrush> 
</Rectangle.Fill> 
</Rectangle> 





ناتج من موقع g Sule‏ سوفت لاستخدامات الفرش المختلفة: 


SolidColorBrush LinéarGredientBrush RadialGradientBrush 


VisualBrush_ 





الصورة 16. 14 . نتائج استعمال الفرشاه Brush‏ 
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و هذا الرابط لمزيد من التفاصيل 


رابط هج 


htto://msdn.microsoft.com/en-us/library/aa970904.aspx 





Transformations yl .4 .8‏ 
ستفيدك کنیرا هذه الخصائص في All»‏ برمجة العناصر المتحرکة او المتأثرة بمدخلات 


المستخدم. Coo‏ یمکنک تحریک الاشکال و تدو بر‌ها و عکسها و خلافه من العملیات المعر 9 قه. 


المتال التالي یوضح بعض التأثيرات على مجموعة من الأدوات المو جودة لدینا في الفورم 


«Button Height="23" Margin="72,72,0,0" Name-"buttonl" VerticalAlignment="Top" 
HorizontalAlignment="Left" Width="75">Button 
<Button.RenderTransform> 
<SkewTransform AngleX ="30" AngleY ="20"/> 
</Button.RenderTransform> 
RX FEUCEONS 
«TextBox Margin="142,11,59,0" Name="textBoxl" Height="23" 
VerticalAlignment="Top">Ahmed 
<TextBox.RenderTransform> 
<TransformGroup> 
<SkewTransform AngleX ="20" AngleY ="20"/> 
<RotateTransform Angle ="45"/> 
<SkewTransform AngleX ="5" AngleY ="20"/> 
</TransformGroup> 
</TextBox.RenderTransform> 
</TextBox> 





UE pene هده د للنانح:‎ 
B' Windowl - " : eta XK cQ و ج‎ 


الصورة 16. 15. نتائج عملية استعمال ال 
.Transformation‏ 

345 Edd jase daas WPF ub da هذا‎ te 
بصور مختلفه على اي شکل:‎ 
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رابط هي 
http://www.codeproject.com/KB/WPF/Transformationsl ntro.aspx‏ 


هذه صورة التطبيق: 


ll Application e |B fc) 





Application 


Trans X: 
Rotate angle: 
Scale X: 


Skew X: 





الصورة 16. 16 . برنامج المنال الذي ستقوم بتنزیله من موقع ال MSDN‏ 


WPF فى‎ Animation ال‎ .9 


تقع كافة الخصائص والدوال المتعلقةً بعملیات التحریک وال Animation‏ تحت Sime‏ 
الاسماء System.Windows.Media.Animation‏ اي حركة تحصل CY‏ اداة لديك لا 
بد لها من ثلاث خصائص By «TO From‏ حيث تحدد نقطة البداية والنهاية والخاصية التي يتم 
ER I‏ خن ها هوشر عليه کیب 

CY 4‏ حركة هناك ایضا «Timeline‏ اهم عناصره هي: 


406 


WPF pue الباب السادس‎ 


العنصر الو صف 


gab‏ 23 للخلف يعد انتهاء الحر که 


الفترة التي تستغر قها عملية الحركة 





الجدول 16. 1. «ai‏ خصائص الفئة Timeline‏ 
مثال» تخییر حجم š Label, dax!‏ 


DoubleAnimation dblAnim = new DoubleAnimation(); 
dblAnim.From = 10; 

dblAnim.To = 30; 
labell.BeginAnimation(Label.FontSizeProperty, dblAnim) ; 


VB.NET 


Dim dblAnim As New DoubleAnimation () 

dblAnim.From = 10 

dblAnim. [To] = 30 
labell.BeginAnimation(Label.FontSizeProperty, dblAnim) 





بداية الحركة: 





نهايه الحر حکه: 
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Ahmed Gamal 





تمكق Fae ados S.‏ الشركة de alls‏ التان ملا 


CH | ڪو د‎ 
dblAnim.Duration = new Duration(TimeSpan.FromSeconds (4)); 


VB.NET ۱ را‎ 


dblAnim.Duration = new Duration(TimeSpan.FromSeconds (4) ( 





CH | كود‎ 
dblAnim.AutoReverse - true; 


VB.NET ۱ ipe 


ویمکننا تحديد Sale!‏ العر ض بعد انتهاءه: 
كود | CH‏ 





VB.NET ۱ کود‎ 


dblAnim.RepeatBehavior = RepeatBehavior.Forever 


او اعادته لاريع مرات فقط على سبیل المثال : 
T ESSE‏ 





VB.NET | oe 


dblAnim.RepeatBehavior = new RepeatBehavior (4) 
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XAML باستخدام‎ ASjall . 10 


كما اتفقنا منن اللحظة الأولى في هذه الدروس, انه بالامکان تطبیق اي من الاوامر عن 
طريق XAML‏ او عن طريق الكود كون جميع هذه الخصائص يمكن الوصول إليها من الكود 
والعکس. OF!‏ لدينا مثال حول BUTTON da>‏ يقوم بالدوران حول نفسه في حالة الضغط عليه 
بالماوس - من كتاب 2008 Pro CSharp‏ : 


«Button Name-"myAnimatedButton" Width="120" Height = "40" 
RenderTransformOrigin-"0.5,0.5" Content = "OK"> 
<Button.RenderTransform> 
<RotateTransform Angle="0"/> 
</Button.RenderTransform> 
«!-- The animation is triggered when the button is clicked --> 
«Button,.Triggers- 
«EventTrigger RoutedEvent="Button.Click"> 
«Beginstoryboarcdo 
eotorvboard» 

«DoubleAnimationUsingKeyFrames 
Storyboard.TargetName-"myAnimatedButton" 
Storyboard.TargetProperty- 

"(Button.RenderTransform). (RotateTransform.Angle)" 
Duürations"0:0:2" FIllBehavior-"s5stop"'» 
«DoubleAnimationUsingKeyFrames.KeyFrames-» 
«LinearDoubleKeyFrame Value="360" KeyTime="0:0:1" 
{> 
<DiscreteDoubleKeyFrame Value="180" 
KeyTime="0:0:1.5" /> 


«/DoubleAnimationUsingKeyFrames.KeyFrames» 
</DoubleAnimationUsingKeyFrames> 
</Storyboard> 
</BeginStoryboard> 
</EventTrigger> 
</Button, Triggers> 
</Button> 





1 . تعریف Styles‏ 
3M‏ كنت قد جريت E‏ اي نوع من برمجه الویب كنت ستعرف ان لدینا ما یعرف 
باسم StyleS‏ وهي مجموعة من الخصائص تحدد الطول والعرض والالوان وخلافه تحت مسمى 

مثلا DarkStyle‏ بحيث يمكن بعد ذلك استخدامها فى اي اداة بكتابة اسم ال Style‏ فقط. 
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التوصيف لكل زر امر مثلا في حالة أن لدینا عدة ازرار آمر لها نفس ال (Style‏ لذا سنقوم 


بتعريف Style‏ بالشكل التالي Mie‏ 


<Window.Resources> 
«Style x:Key ="darkstyle"> 
<Setter Property ="Button.FontSize" Value ="15"/> 
«Setter Property ="Button.Background"> 
<Setter.Value> 


<LinearGradientBrush StartPoint="0,0" EndPoint="1,1"> 


<GradientStop Color="Black" Offset="0" /> 
<GradientStop Color="Blue" Offset="0.25" /» 
<GradientStop Color="Brown" Offset="1" /> 
</LinearGradientBrush> 
</Setter.Value> 
</Setter> 
</Style> 
</Window.Resources> 





والان لكل زر آمر يكفي التعریف بالشکل التالي: 


«Button Name="b1" Width = "100" 

Style ="{StaticResource darkstyle}" Content = "Button 1" 
HorizontalAlignment="Right" Margin="0,61,30,61" /> 
<Button Name="b2" Width = "100" 

Style ="{StaticResource darkstyle}" Content = "Button 2" 
HorizontalAlignment="Left" Margin="25,61,0,61" /> 





الناتج سیکون بالشکل التالي: 





الصورة 16. 17. نتانج التنفید. 
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1 1. تغییر طبيعة ال Style‏ 


يمكئنت تعريف اشياء مخصصه لتغيير الموجود في ال otyle‏ المست‌خدم؛ مثلا لتحديد زر امر 


حجم الخط ولونه فيه مختلف لا يلزم تغيير ال Style‏ بالكامل بل يكفي كتابته بالشكل التالي: 


«Button Name="b2" Width = "100" 


Style ="{StaticResource darkstyle}" Content = "Button 2" 
HorizontalAlignment="Left" Margin="25,61,0,61" FontSize="30" /> 





والناتج: 


B ' Windowl 





san‏ ) 3 16. 18 . نتانج التنفید. 


ji من‎ Style اشتقاق‎ .2 .1 


لعمل Style‏ جدید يتم أخذه من STYLES‏ قدیم یمکن كتابة تعريفه بالشکل التالي: 






XAML ۱ TO 


«Style x:Key ="darkredstyle" BasedOn = "{StaticResource darkstyle}"> 






9 E HH EH | p | 
Triggers باستخدام‎ Style تصمیم‎ .3 .11 
مرور الماوسن او غنوه :قك‎ Gases «laci Le ala حالات‎ wis کک 0۱ ۱۲۱۵۵۵۲۵ من‎ 


لتلوین مربع نص بلون مختلف عند حصوله على التحدید نکتب Style‏ بالشکل QAUM‏ 
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<Window.Resources> 
«Style x:Key ="txtstyle" TargetType = "{x:Type TextBox}"> 
<Setter Property = "Background" Value = "White"/> 












<Style.Triggers> 








«Trigger Property = "IsFocused" Value = "True"> 
<Setter Property = "Background" Value = "Yellow"/> 
</Trigger> 
</Style.Triggers> 
</Style> 





«</Window. Resources> 










والناتج لمریع اللص الذي عليه التحديد: TÌ Windowl —  .‏ 





الصورة 16. 19. نتائج التنفید. 
تر فا 


Jis‏ منقول من 2008 Pro CSharp‏ اضافة 
عناصر للقائمة بها مجموعة من ال Styles‏ ومن ثم 


تحدید Style‏ زر الامر ليحتوي على آحدها بالشکل التالي I»‏ 


public partial class MainWindow ۰ Window 
1 
public MainWindow() 
{ 
InitializeComponent (); 
// Add items to our list box. 
lsStsStyles.Items,.Agd("TIxzxltStyle"); 
lstStyles.Items.Add("GreenStyle"); 
lstStyles.Items.Add("MouseOverStyle"); 
) 
protected void comboStyles Changed(object sender, RoutedEventArgs args) 
1 


// Get the selected style name from the list box. 
System.Windows.Style currStyle = (System.Windows.Style) 
FindResource(lstStyles.SelectedValue); 

l7 Bet the style of the button. type, 
this.btnMouseOverStyle.Style = currStyle; 
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VB.NET 


Partial Public Class MainWindow 
Inherits Window 
Public Sub New() 
InitializeComponent() 
۲ Add items to our list box. 
lstStyles.Items.Add("TiltStyle") 
lstStyles.Items.Add("GreenStyle") 
lstStyles.Items.Add("MouseOverStyle") 
End Sub 
Protected Sub comboStyles Changed(ByVal sender As Object, ByVal args As 
RoutedEventArgs) 
۲ Get the selected style name from the list box. 
Dim currStyle As System.Windows.Style - 
DirectCast(FindResource(lstStyles.SelectedValue), System.Windows.Style) 
' Set the style of the button type. 
Me.btnMouseOverStyle.Style = currStyle 
End Sub 
End Class 


public partial class MainWindow : Window 


{ 


public MainWindow () 

{ 
InitializeComponent (); 
زر‎ Add items to our list box. 
lstStyles.Items.Add("TiltStyle"); 
lstStyles.Items.Add("GreenStyle"); 
lstStyles.Items.Add("MouseOverStyle"); 


) 
protected void comboStyles Changed(object sender, RoutedEventArgs args) 


{ 
// Get the selected style name from the list box. 
System.Windows.Style currStyle = (System.Windows.Style) 
FindResource (lstStyles.SelectedValue) ; 
// Set the style of the button type. 
this. btnMouseOverStyle.Style = currStyle; 
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VB.NET 


Partial Puolic Class MainWwindow 
Inherits Window 
Public Sub New() 
InitializeComponent() 
" Add items to our list box. 
lstStyles.Items.Add("TiltStyle") 
lstStyles.Items.Add("GreenStyle") 
lstStyles.Items.Add("MouseOverStyle") 
End Sub 
Protected Sub comboStyles Changed(ByVal sender As Object, ByVal args As 
RoutedEventArgs) 
۲ Get the selected style name from the list box. 
Dim currStyle As System.Windows.Style - 
DirectCast(FindResource(lstStyles.SelectedValue), System.Windows.Style) 
۲ Set the style of the button type. 
Me.btnMouseOverStyle.Style = currStyle 
End Sub 
End Class 


۲ StylesAtRuntime 


سس 


Please select a style for the 
button on the left. 





san‏ 5 3 16. 20. نتائج التنفید. 


Templates JI 2 


تستخدم ایضا لتغییر خصائص الأدوات» ولکن الفارق بینها وبين Styles‏ انها تستطیع ان 
تلغی بالکامل الطبيعة الاساسية للأداة » مثلا هذه ال Templates‏ 
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<Grid.Resources> 
«&l-— A Simple template ror a round button ror items in Chis. grid ==> 
«ControlTemplate x:Key -"roundButtonTemplate" TargetType ="{x:Type 
Button]"» 
«Grid» 
<Ellipse Name -"OuterRing" Width ="75" Height ="75" Fill 


="DarkGreen"/> 

<Ellipse Name -"InnerRing" Width ="60" Height ="60" Fill 
="MintCream"/> 

<ContentPresenter HorizontalAlignment="Center" 
VerticalAlignment="Center"/> 

</Grid> 
</Control Temp lare> 

</Grid.Resources> 





o‏ یمکنک تحدیدها لزر آمر مثلا: 


«Button Name -"myButton" Foreground -"Black" FontSize ="20" FontWeight << 
Template ="{StaticResource roundButtonTemplate}" 

CLick ="myButtCon Click">cCliīick! 

</Button> 





مه 


والنانح: 


B ١ ControlTemplates 





الصورة 16. 21. نتائج التنفید. 
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3D WPF 3 


بعد ان تعلمنا كل ما نحتاج إليه للبدء بالغوص في عالم WPF‏ من وجهة نظر A405‏ 
الابعاد. سنحاول في هذا الدرس التعرف على اساسیات العالم الثلاثي الأبعاد في WPF‏ او ما يسمى 


Avalon — 


یختلف عالم ال 3D‏ كثيرا عن عالم ال 2D‏ حيث تحتاج لبعض مفاهیم الهندسة الفراغية آو لا ومن 
ثم معرفة بعض المفاهیم Projection Jis‏ و خلافه ۰ وبما اننا لن نتخصص هنا في مجال ال 


55 يمكنت البدء بمعرفة ما ترید من JUS‏ هذه المقدمة السر Aas‏ : 


رابط هي 
http://developer.nvidia.com/docs/10/11278/lntro-to-Graphics.pdf‏ 
الآن سنبداً مع WPF‏ 


لو كانت لديك بعض الخبرة مع ele‏ ال cola Graphics‏ تدرك ان الهرم - الشكل الاساسي Legs‏ 
في عالم 3D‏ والتطبيق الذي يشابه Hello World‏ في عالم ال - Graphics‏ ما هو إلا مجموعة من 
الخطوط بين نقاط مختلفة. او تستطيع القول انها مجموعة من المثلثات تمثل عدد أوجه الهرم - 
3 اوچه - و لکنک تحتاج egal‏ نظريات ال Projection‏ لتحديد الابعاد والقياسات المناسبة لرسم 
هذه المثلثات في حالة ال 3D‏ بحيث تظهر بصورة طبيعية. 

بداية سنقوم باستيراد oystem.Windows.Media.Media3D aah‏ وهی المختصة 


مه 


دالنعا هذا العالم. 
: = 


C# 


using System.Windows.Media.Media3D; 


VB.NET 


Imports System.Windows.Media.Media3D; 





سنحتاج او M‏ لتعریف Viewport3D‏ والذي یمکننا من تحدید مجال الروية ونوع الکامیرا و خلافه. 


بالشکل التالي مثلا: 
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«Viewport3D Name-"mainViewport" ClipToBounds="True"> 
<Viewport3D.Camera> 
<PerspectiveCamera 

FarPlaneDistance="100" 

LookDirections"-11,-10,-9" 

UpDirection-"D,l1,U0^" 

NearPlaneDistance="1" 

Positi0on="11,10,9" 

FieldOfView="70" /> 
</Viewport3D.Camera> 
<ModelVisual3D> 

<ModelVisual3D.Content> 
«DirectionalLight 


Color="White" 
Direction="-2,-3,-1" /> 
</ModelVisual3D.Content> 
</Model Visual 3D> 
</Viewport3D> 


MeshGeometry3D triangleMesh = new MeshGeometry3D(); 

POING- D point = New Point2D(0, 0; 0); 

Poant3D porntl = new PointoD(5, Op U); 

Poin D pon A new POoIlHEL3SD(0, OF OFF 

triangleMesh.Positions.Add(point0); 

triangleMesh.Positions.Add(pointl); 

triangleMesh.Positions.Add(point2); 

triangleMesh.TriangleIndices.Add(0); 

triangleMesh.TriangleIndices.Add(2); 
1) 
1 


7 


pd 


triangleMesh.TriangleIndices.Add( 
Vector3D normal = new Vector3D (0, 
triangleMesh.Normals.Add(normal); 
triangleMesh.Normals.Add(normal); 
triangleMesh.Normals.Add(normal); 
Material material = new DiffuseMaterial ( 
new SolicColorbrush (Colors..DarkkKhaki))- 
GeometryModel3D triangleModel = new GeometryModel 3D ( 
triangleMesh, material); 
ModelVisual3D model = new ModelVisual3D(); 
model.Content = triangleModel; 
this.mainViewport.Children.Add (model); 
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VB.NET 


Dim triangleMesh As New MeshGeometry3D )( 
Dim pointO As New Point3D(0, 0, 0) 
Dim pointi As New Point3D(5, 0, Q) 
Dim point2 As New Point3D(0, 0, 5) 
triangleMesh.Positions.Add(point 0) 
triangleMesh.Positions.Add(pointl) 
triangleMesh.Positions.Add(point2) 
triangleMesh.TriangleIndices.Add(0 
triangleMesh.TriangleIndices.Add (2 
triangleMesh.TriangleIndices.Add(1 
Dim normal As New Vector3D(0, 1, لا‎ 
triangleMesh.Normals.Add(normal) 
triangleMesh.Normals.Add(normal) 
triangleMesh.Normals.Add (normal) 
Dim material As Material = New DiffuseMaterial (New 
SolaidColorBrushi(iColors.DarkKhaki)) 

Dim triangleModel As New GeometryModel3D(triangleMesh, material) 
Dim model As New ModelVisual3D() 

model.Content - triangleModel 
Me.mainViewport.Children.Add (model) 


) 
) 
) 
) 





والناتج سیکون: 





الصورة 16. 22. نتائج التنفید. 


اما ثر سم المکعب: 
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private Model3DGroup CreateTriangleModel(Point3D p0, Point3D pl, Point3D p2){ 
MeshGeometry3D mesh = new MeshGeometry3D(); 
mesh.Positions.Add(p0); mesh.Positions.Add(pl); mesh.Positions.Add(p2) ; 
mesh.TriangleIndices.Add(0); 
mesh.TriangleIndices.Add(1); 
mesh.TriangleIndices.Add(2); 
Vector3D normal = CalculateNormal(pO, pl, p2); 
mesh.Normals.Add(normal); 
mesh.Normals.Add(normal); 
mesh.Normals.Add(normal); 
Material material = new DiffuseMaterial (new 
colidColorBrushi(iCcolors.DarkRkhakri)); 
GeometryModel3D model = new GeometryModel3D (mesh, material); 
Model3DGroup group = new Model3DGroup(); 
group.Children.Add (model); 
return group; 
) 
private VeoctoroD CalculateNormal(Point3D pO, PointoD pl, Point3D p2)( 
Vector D vU = new VecLoroD(pl.x = pU.X, pler — POY; plea = لكو لام‎ 
Vetor oD vl = new VecLor3D(p2.X = plX, Bll = pliY, pZ.A = pled) 
return Vector3D.CrossProduct(vO, vi); 


, 


VB.NET 


Private Function CreateTriangleModel (ByVal pO As Point3D, ByVal pl As Point3D, 
ByVal p2 As Point3D) As Model3DGroup 
Dim mesh As New MeshGeometry3D() 
mesh.Positions.Add (p0) 
mesh.Positions.Add (pl) 
mesh.Positions.Add(p2) 
mesh.TriangleIndices.Add(0) 
mesh.TriangleIndices.Add(1) 
mesh.TriangleIndices.Add (2) 
Dim normal As Vector3D = CalculateNormal(pO, pl, p2) 
mesh.Normals.Add(normal) 
mesh.Normals.Add(normal) 
mesh.Normals.Add(normal) 
Dim material As Material = New DiffuseMaterial (New 
SolidColorBrushi(Colors.Darkkhakai)) 
Dim model As New GeometryModel3D (mesh, material) 
Dim group As New Model3DGroup() 
group.Children.Add (model) 
Return group 
End Function 
Private Function CalculateNormal (ByVal pO As Point3D, ByVal pl As Point3D, 
ByVal p2 As Point3D) As Vector3D 
Lim vO AS New VoectoroD(pl.X = pO.X, play = pO.Y, pla = psa) 
Dim vil As Nex .VSOLOPSDTID2.X = Gl, OAT = play, DEA plz) 
Return VectorsbD.,CrossProducct (v0, xl) 
End Function 
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وفي زر الامر: 


MeshGeometry3D triangleMesh = new MeshGeometry3D(); 
Point- D point0 = new Polnt3D(0, Q0, 0); 
PoinesD pointl = new Pornt3D(5, 0, 0); 
POIDLt3D poincZ new FPoincoD (0, 0. 5)7 
triangleMesh.Positions.Add(point0) 
triangleMesh.Positions.Add(point1); 
triangleMesh.Positions.Add(point2); 
triangleMesh.TriangleIndices.Add(0) 
triangleMesh.TriangleIndices.Add (2); 
triangleMesh.TriangleIndices.Add(1); 
Vector3D normal = new Vector3D(0, 1, 0); 
triangleMesh.Normals.Add(normal); 
triangleMesh.Normals.Add(normal); 
triangleMesh.Normals.Add(normal); 
Material material = new DiffuseMaterial ( 
new SolicColorBrush (Colors.Darkkhaki.))-; 
GeometryModel3D triangleModel = new GeometryModel 3D ) 
triangleMesh, material); 
ModelVisual3D model = new ModelVisual3D(); 
model.Content - triangleModel; 
this.mainViewport.Children.Add (model); 


, 


VB.NET 


Dim triangleMesh As New MeshGeometry3D () 
Dim pointO As New Point3D(0, 0, 0) 

Dim pointl As New Point3D(5, O0, 

Dim point2 As New Point3D(0, O0, 


triangleMesh. 
triangleMesh. 


triangleMesh 


Positions,Adg(porntO 
Positrions.Addí(pornti 


JPosrtions.Add(pornt2 


triangleMesh.TriangleIndices. ( 
triangleMesh.TriangleIndices. ( 

Dim normal As New Vector3D(0, 1, 
triangleMesh.Normals.Add (normal) 
triangleMesh.Normals.Add (normal) 
triangleMesh.Normals.Add (normal) 

Dim material As Material = New DiffuseMaterial (New 
SolidColorBrush(Colors.DarkKhaka)) 

Dim triangleModel As New GeometryModel3D(triangleMesh, material) 
Dim model As New ModelVisual3D() 

model.Content - triangleModel 
Me.mainViewport.Children.Add (model) 


0) 
2) 
) 
) 
) 
triangleMesh.TriangleIndices.Add(0 
2 
1 
0 





مه 


والنانح: 
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| R^ Window1 





الصور ô‏ 6 3 2. نتانج التنفید. 


یمکنک المواصله في هذه التطبيقات من المصدر الذي استقیت die‏ محنویات هذا الدرس على 
الر ابط التالي: 
رابط هج 

http://www.kindohm.com/technical/wpf3dtutorial.htm 
ویمکنک المتابعة للاطلاع على كيفية عمل برنامج یمکنک من التحکم في الکامیرا لیکون الناتج‎ 
بالشکل التالي:‎ 
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011 





Camera X Position: 





الصورة 16. 24. التحکم في و ضعية الکامیرا و تغییر الزوایا. 
او aw)‏ ارضيات لنکون بالشکل التالي: 


x!‏ اھا 





الصورة 16. 25. التحکم في و ضعية الکامیرا و تغییر الزوایا. 
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XNA عالم‎ .4 


اذا كنت قد جربت التعامل مع برمجة الالعاب أو أي شيء له علاقة بالعالم الثلاثي الابعاد؛ 
cola‏ قد جربت التعامل مع Direct3D‏ أو مع OpenGL‏ أو غیرهم من المکتبات الخاصة بالتعامل 
مع العالم التلاثي الأبعاد ۰ لذا لن یکون التعریف صعباً لک لو قلت لک أن ال XNA‏ هي مجموعة 
جديدة من ال APIS‏ مبنية على DirectX‏ تهدف إلى تسهیل التعامل مع مکتبات ال DirectX‏ حيث تم 
تجهیز عدد كبير من الدوال والمهام لتنفين بعض العملیات التي كان تنفید‌ها يأخن الکثیر من 


الجهد. 


ال XNA‏ اختصار DirectX Next Generation Architecture: kat‏ . محانية و لکنها 
هي ر للح وهي 00^ و 
تشتر ط نسخة Express‏ من الفیجوال ستودیو لتعمل ۰ Làm Y‏ سیکون بامکانک انشاء مشروع XNA‏ 


بسهو لة ۰ قم بتحمیل XNA‏ من الرابط التالي: 
لو كنت تحاول برمحه dial‏ يسيطة يمكنت الاستفادة من هذا الر ابط: 


http://www.c-sharpcorner.com/UploadFile/maold/XNAI ntro04192007233237PM/XNAI ntro.aspx 





وسیکون ناتج تجربتک بالشکل التالي: 
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الآن اذا كنت مبرمج DirectX‏ سایق cola‏ بالطبع ادر کت الفارق ... Lei‏ لو لم تكن كذلك فحاول 


البرمجة باستخدام DirectX‏ لفترة ثم جرب الفارق... 


Microsoft Expression Studio .15 
Microsoft Expression Web .1.15 


يتيح لك هذا البرنامج تصمیم صفحاتک بطریقه مميزة ویساعدك على عمل صفحتک 
CL‏ صيغة موجودة مثل . XHTML, CSS, XML, XSLT‏ الواجهة الرئيسية له بالشکل التالی: 
Desktopi Three Quarters - Copy 'ardex html] - Microsoft Expression Web‏ ون مارا IThade: Group‏ 1 


; Fae Edit Wim |rcert Foma Tools Tabie ‘Ste Data View Task Panes Winder Help 


۳ = Trebuchet MS, Verdana, Lucid. E 


Tag Properties C55 Properties s, X ITTUDE GROUP every thing about ut... عم‎ E 


“Manage Styles s, — X‏ واه نویه 


2 E a | A ^ d Mew Style... | Opto > | 


"T | Team Members | میس زا‎ Technical Skills | Activities | Semple of Projects | Awards Ard Positions ۵ Atisch Stile Sie 





الصورة 16. 26. الواجهة الرئيسية لبرنامج ال Expression Web‏ 
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یمکنک استخدام اي من الادوات التي تجدها لديك لتصمیم صفحتک والتعدیل على الخصائص › 
هناك ايضا مدقق pot HTML‏ 4.81 الاخطاء هناك خصائص لتسهیل التعامل مع ال Mis styles‏ »› 
ليس هذا فقط بل يتيح لك البرنامج البرمجة من خلاله سواء من خلال Asp.net‏ آو من 
خلا ل ۰0/۱0 


pol‏ يد يمكنت البدء من هنا: 


رابط هي 
http://www.microsoft.com/expression/features/default.aspx?keyzweb‏ 


Microsoft Expression Design .2 .15‏ 
يقدم لك هذا البرنامج حلولا مميزة لتسهیل تر کیب الصور والرسومیات وخلافه » الواجهة 


الرئيسية له بالشکل التالي: 
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الصورة 16. 27. الواجهة الرئيسية لبرنامج ال Expression Design‏ 
المزيد يمكنت معرفته من هنا: 


رابط هج 


http://www.microsoft.com/expression/features/default. aspx?key-z design 


: اجهه‎ gt 
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Microsoft Expression Media .3 .15 


يتيح لت هذا البرنامج تعدیل و 43 کیب و تکوین Mi‏ مک المختلفه . هذه 39-2 ô‏ 


WPF 
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الصورة 16. 28. الواجهة الرئيسية لبرنامج ال Expression Design‏ 


والمزيد يمكنت معرفته من هنا: 


رابط هج 


Microsoft Expression Encoder 5 


یتیح لک السماح للزاثر بالتفاعل مع عرو ضک ۰ یشکل البرنامج الأساسي لادارة Silver‏ 


Light‏ التقنية الجديدة من مایکروسوفت والمشابهة لتقنية Flash‏ من LL, Macromedia‏ ومن 
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6 حالیا. 
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الواجهة الرئيسية تلبر نامج: 
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الصورة 16. 29. الواجهة الرئيسية لبرنامج ال Expression Encoder‏ 
یمکنک البدء يمزيد من التفصيل هنا: 


S9 رابط‎ 
http://www.microsoft.com/expression/features/default.aspx?key-z encoder 
Microsoft Expression Blend .5 15 


J فر لک و ساد متعدده 5 ۰ سنحاه‎ Cum اجهات نامحك المخضلفه.‎ i 
و : و‎ J 32 : : يم واج در‎ 
معر قه المزيد عه بتفصيل فی هذا الدرس...‎ 
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سنحاول OY!‏ عمل تطبیق بسیط من خلال Expression Blend‏ قم تله Sul‏ هن dE‏ هانگ 
السابقة. قم بتشغیله ومن ثم اختیار New Project‏ ومن ثم WPF Application (*.exe)‏ بالشکل 


التالي: 


New Project 
Select a project type 


(S) 


Silverlight 1 


Site 


Mame UntitledProjects 
Location CA\Users\Ahmed\Documents\Expression\Expression Blend Projects Browse... 


Language Visual (+ bul 


Target | NET Framework v3.5 Y 








الصورة 16. 29. بناء مشرو ¢ suse‏ في ال Expression Blend‏ 


یمکنک اختیار اللغة التی ترید العمل علیها وال Framework‏ اضافة للاسم ومکان التخزین 


بالطبع. 


من View‏ اختر Active Document View‏ ومن ثم اختر الوضع Split‏ لتتمکن من عرض XAML‏ و 


pall‏ ض العادي في نفس الوقت بالشکل التالي: 


429 


WPF 


S LintitledProject3.sin - Microsoft Expression Blend 2 


He Eî Ve Obei Pod Tow indî Help 


ce Wiron =‏ دعيو جد 


۲ Triggers 
+ Brent 


puc السادس‎ call 


Project E F#F Properties F = Resources ef = 
۲ Fier 


2 ELE iEn RID 


۲ EJ UrttedProgeci3 


= NI 
= D appoi 
[^ تسوا‎ 


dS wrr uim 


۲ Object and Timeline 


Wires 


۲ © تست‎ 
B Leppulkogi 


= 


width=" " Height" 


Grid x:Mamea^ 
WLndos 


MUR “مسمس قاحس‎ te ee یسلا‎ — oh uh oo a 1 
we Galder... E Pectures | DUET P Untied E Adche F EN + ED WIE: 134 PM 





الصورة 16. 30. الواجهة الرئيسية لبرنامج ال Expression Blend‏ 
على جانب الشاشة ۰ ستجد كل الأدوات التي تحتاج إليها للتصمیم سواء القلم والفر BLA‏ و خلافه › 


أو آزرار pol gil‏ ومربعات النصوص و خلافه من الأدوات التي ستستخدمها في برنامجک . ايضا 
یمکنک الضغط على آخر عناصر القائمة لیستعرض لك جمیع الأدوات بالشکل التالي مثلا: 
Asset Library‏ 
bearch X ® Gallery ^ Details‏ 
Local Styles Media Custom Controls Recent‏ 
JI AccessText 4  CheckBox (^ Decorator‏ 


(^ AdomerDecorator T | DockPanel 


P ty P" ^ 
۳ Border نف‎ 9 ComboBoxtem a DocumentPage View 
7 - | 


, 0 
e» DocumentReference 


Tess] LSU 
y = BulletDecorator a» ContentControl 


nr ContentPresenter 


, r 
{# Control CS Elipse 


P 3 
an» BocumentViewer 





الصورة 16. 31. الواجهة الرئيسية لبرنامج ال Expression Blend‏ 
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الباب السادس puc‏ 


خلال عملیاتک في الر سم ۰ ستجد CY‏ اداة مجموعة من الخصائص على الجانب » تستطیع منها 


Wis Ae انا‎ 





التحکم بالمظهر و خلافه: 


eo» Properties E +» 
Mame Window 


Type Window 





No brush 


BorderBrush 
Foreground 


OpacityMask No brush 


Color resources 


255 


<r 1 


T Appearance 
Opacity 10096 
Visibility ‘Visible 
Allows Transparency 
BorderThickness * û 
tū 


WindowStyle SingleBorderWindow v 


Width 640 
Height 480 


HorizontalAligmment (= = = ۱ il 


الصورة 16. 32. نافذة الخصائص ال Expression Blend‏ 


الآن كتطبيق سریع ‏ قم باضافة Canvas‏ و قم بتحدید ابعاده » هذا هو Canvas,‏ الذي سنضع 


XAML 


فيه صورة خاصة بنا ونطبق علیها بعض التأثيرات: 


= 





«Canvas 
«Canvas x:Name="MainImageCanvas" Canvas.Left="40" Canvas.Top-"120"» 


الآن قم ياضافة MediaElement‏ ولنضع فيه صورة مثلا — أو قم بوضع 8594 مباشرة - c‏ 


سيكون ناتج XAML‏ بالشكل التالي: 


«MediaElement x:Name="MainImage" Source-"c:/example/futex.jpg" Width="300" 


Height="300" > 
</MediaElement> 
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والآن سنقوم بتطبیق بعض التأثيرات على ال Canvas‏ حيث نطبق عملية الميل من خلال 


الخصائص « سیکون ناتج XAML‏ بالشکل التالي: 


<Canvas.RenderTransform> 
«IransrormGroupe 
«SkewTransform x:Name-"MainSkewTransform" AngleY="-19" Anglex="0" 
CenterX-"0" CenterY="0"/> 


«ScaleTransform x:Name-"MainScaleTransform" ScaleY="1" ScaleX = "1" 
CenterX-"0" CenterY="0"/> 
«/TransformGroup» 
«/Canvas.RenderTransform» 
</Canvas> 





الآن قم بالضغط على F5‏ لتجربة العر ض والذي سیکون بالشکل التالي: 





الصورة 16. 33. نتانج التنفید. 

سنحاول تطبیق نظرية الظل للصورة أیضا . یمکنک تطبیقها مباشرة من خصائص الفرشاة؛ أو في 
تجربتنا هنا سنضع صورتين على بعضهما . لذا سنقوم بعمل Canvas‏ ونضع فيه الصورة أيضا 
ولكن مع زوايا ميل مختلفة هذه المرة بحيث تحاذي اطراف الصورة ۰ سيكون ناتج XAML‏ بالشكل 


التالى: 


مه 
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«Canvas x:Name="ReflectionImageCanvas" Canvas.Left="260" Canvas.Top="640"> 
«MediaElement x:Name="ReflImage" Source="c:/example/futex.jpg" Width="300" 
Height="300" Volume="0"> 
</MediaElement> 
<Canvas.RenderTransform> 
«TransformGroup- 


«SkewTransform x:Name-"ReflectionSkewTransform" AngleY-"]9" 
AngleX-"-41" CenterX-"0" CenterYy="0" /» 
«ScaleTransform x:Name-"ReflectionScaleTransform" ScaleYy="-1" 
Scalex="1" Conter TU" Centeri- "OT Ju 
</TransformGroup> 
</Canvas.RenderTransform> 
</Canvas> 





و سیون الناتج للصورة بالشعل التالي: 
aa‏ )= | 





الصورة 16. 34 نتانج التنفید. 
آخر نقطة سنتعامل معها هي اضافة الشفافية لصورة الظل » من ضمن الخصائص آیضا ‏ لذا ستجد 


ناتج ال XAML‏ في النهاية بالشکل التالي: 
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«Canvas x:Name="ReflectionImageCanvas" Canvas.Left="260" Canvas.Top="640"> 
«MediaElement x:Name="ReflImage" Source="c:/example/futex.jpg" Width="300" 
Height="300" Volume="0"> 
</MediaElement> 
<Canvas.RenderTransform> 
«TransformGroup- 
<SkewTransform x:Name-"ReflectionSkewTransform" AngleYy="19" 
AngleX-"-41" CenterX-"0" CenterYy="0" /> 
«ScaleTransform x:Name="ReflectionScaleTransform" ScaleY-"-]" 
ScaleX="1" CenterX-"0" CenterY-"0" /> 
</TransformGroup> 
</Canvas.RenderTransform> 
“Canvas Opacity Mack> 
«LinearGradientBrush StartPoint-"D.5,D.0" EnoPoint="0.5,1.0"> 
«GradientStop Offset="0.345" Color="#00000000" 
x:Name-"ReflGradientStop1" /> 
«GradientStop Offset="1.0" Color="#CC000000" 
x:Name="ReflGradientStop2" /> 
</LinearGradientBrush> 
</Canvas.OpacityMask> 
</Canvas> 


قم بضبط بعض اعدادات ال Left‏ وال Top‏ يدويا او من الکود fart‏ 355 الظل منطيقة على 





h| Window! | | 





الصورة 16. 35 نتانج التنفید. 
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الکو د الکامل :XAMIL.‏ 


سروم دشت 
«Canvas x:Name-"MainlImageCanvas" Canvas.Left="40" Canvas.Top="120">‏ 


«MediaElement x:Name="MainImage" Source="c:/example/FUTEX.JPG" 
Width="300" Height="300" > 
</MediaElement> 
<Canvas.RenderTransform> 
<TransformGroup> 
«SkewTransform x:Name-"MainSkewTransform" AngleYy="-19" 
AngleX-"0" CenterX-"0" CenterY="0"/> 
«ScaleTransform x:Name="MainScaleTransform" ScaleY="1" ScaleX = 
"1" CenterX-"0" CenterY="0"/> 
</TransformGroup> 
</Canvas.RenderTransform> 
clCanvas 
«Canvas x:Name="ReflectionImageCanvas" Canvas.Left="267" Canvas.Top="645"> 
«MediaElement x:Name-"ReflImage" Source="c:/example/futex. jpg" 
Width="300" Height="300" Volume="0"> 
</MediaElement> 
<Canvas.RenderTransform> 
<TransformGroup> 
«SkewTransform x:Name-"ReflectionSkewTransform" AngleYy="19" 
AngleX-"-41" CenterX-"0" CenterY-"0" /» 
«ScaleTransform x:Name="ReflectionScaleTransform" ScaleY-"-]" 
ScaleX="1" CenterX-"0" CenterYy="0" /> 
</TransformGroup> 
</Canvas.RenderTransform> 
<Canvas.OpacityMask> 
«LinearGradientBrush StartPoint-"D.5,0,0" RndPoint-"D)D,5,1,0"»5 
«GradientStop Offset="0.345" Color="#00000000" 
x:Name-"ReflGradientStop1" /> 
<GradientStop Offset="1.0" Color="#CCO000000" 
x:Name="ReflGradientStop2" /> 
</LinearGradientBrush> 
</Canvas.OpacityMask> 
</Canvas> 
</Canvas> 





لا تنس ان MediaElement‏ یمکن ان تکون اي شيء لذا جرب متلا وضع فیدیو وستجد ان نفس 


SUN‏ بنطبق Aude‏ تماما... 


طبعا یمکنک نقل الکود كما هو إلى الفيجوال سئودیو و سیعمل بنفس الصور .ó‏ 
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قبل النهاية + احب Of‏ اذکرك بأنک کمبرمح لست مطالباً بمعرفة الکثیر عن هذا العالم عالم 
Microsoft Expression‏ فهو موجه اصلا للمصممین ۰ كل ما يهمك هو التعامل مع ال XAML‏ 


الناتجة فقط. 
لنعلم كل ما ترید عن هذه المحموعه يمكنت البدء من هنا: 


http:// expression.microsoft.com/en-us/cc136522.aspx 


436 





قواعد البیانات 
ADO.net‏ 


الباب السابع عشر قواعد البیانات ADO.net‏ 


ال Active Data Object.Net‏ او ما تعرف اختصارا باسم ADO.net‏ هي امتداد للنسخة 
القديمة ۸00 التي كانت موجودة في اصدارات قیحوال بيست 6 من مایکر و سو فت .۰ و هی امتداد 
ايضا لعالم مزودات البيانات او Data Providers‏ التى مرت بمراحل تطور عديدة وشهدت 


العديد من التقنيات مثل DAO, RDO‏ . 


وعلى عکس النسخة القديمة ADO‏ التي كانت مخصصة لفتح اتصال بين قاعدة البيانات والبرنامج 
C |‏ الخاد | ADO.net gta Client/Server‏ اصبحت مزودة بخدمة Disconnected‏ 
و p o‏ 2 4 مرو : 


بحیث لن تصبح مضطرا للاتصال Leila‏ بقاعدة البیانات . 
هناك فرو قات أخرى بين التقنیتین هذا مو جزها: 

- الدعم الکامل XML.‏ . 

- زيادة آنواع GUL‏ المعتمدة والدوال المستخدمة. 

AS peut) زيادة‎ - 

- انها اصبحت managed code‏ بالکامل. 

یمکنک الاطلا p‏ على مزید من التفاصیل حول الفروقات هنا: 


رابط هي 


http://msdn.microsoft.com/en-us/librarv/ 904fckAk(VS.71).aspx 
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mE -‏ = 
1 . البدا باستخدام ال ADO.net‏ 
فقط كل ما علیک هو استیراد المکتبات الخاصة ها + تجدها larem‏ تحت اسم 
System. Data‏ بعدها سیکون Soule‏ تقریر فیما اذا كنت ترغب في العمل من خلال الو ضع 
0 أو Disconnected‏ . في الحالة الأولى ستکون على اتصال دائم بقاعدة البیانات اما 
الحالة الثانية فستتصل على مراحل لتجلب البیانات او لتقوم ببعض التعدیلات الجماعية ‏ في بداية 


e ضع‎ ot Lào Y سنعود‎ Lord Connected لن نتعامل سوی مع‎ bass 


ADO.net Data Provider مکونات ال‎ .2 


Connection -1‏ : یمکنک من انشاء اتصالک بقاعدة البیانات. 

Command -2‏ : تمكنك من تنفین جملة استعلام SQL‏ على قاعدة البیانات. 

:DataReader DbDataReader IDataReader -3‏ تمکنک من قراءة البیانات الناتجة 
عن عملية استعلام على سبیل المثال » لکن الناتج سیکون للقراءة فقط وفي اتجاه واحد فقط. 

DataAdapter DbDataAdapter IDataAdapter -4‏ : تمکنک على الحصول على 
صورة من البیانات المطلوبة سواء جدول او جمله استعلام وتمکنک من التنقل بینها وعمل اضافة 
و تعدیل و حدذاف و خلافه. 


Parameter DbParameter IDataParameter -3‏ : خاصة بتمریر متغیرات إلى جمل 


الاستعلا م . 


2. ال Data Providers‏ المدعومة من قبل مایکروسوفت 


:oystem.Data.OleDb 


یمکن استخدامها للتعامل مع اي نوع من قواعد البیانات » لکن لو كان لقاعدة البیانات مزود آخر 


موجود في القائمة یفضل استخدامه نظرا OM‏ هذا النو ع هو الأبطأ. 


:System.Data.SqlClient 
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یفضل Lega‏ استخدامها للتعامل مع قواعد البیانات SQL Server‏ حیث انها تحتوي على مجموعة من 


المهام الخاصة بالتعامل مع هذا النو gp‏ من قواعد البیانات. 
POV SCCM» 2 ۱ 2 856 15 6 257 63508‏ 


يفضل استخدامها في حالة التعامل مع قاعدة بیانات SQL Server CE‏ الخاصة بالتعامل مع ال 
.Pocket PC‏ 


:System.Data. Odbc 
يمكن التعامل معه من خلالها.‎ Odbc اي ملف‎ 
:System.Data.OracleClient 


یفضل التعامل مع قواعد البیانات آوراکل من خلالها. 


Third-Party jal Ag33 التعامل مع مزودات‎ . 2 
ADO.NET Data Providers 


فى الفقرة السابقة ذکر Slag po D‏ لقواعد البیانات الرئيسية» و لکن ماذا عن قواعد البیانات 
MYSQL‏ أو FoxPro‏ أو 082 Mie‏ ؟ 


هل سنضطر فى النهاية لاستخدام OleDb‏ ذات السرعة الأبطأ و الامکانیات المحدودة نسبیا ٩‏ 


لا طبعاً » قامت اغلب الشر کات بتطویر Data Providers‏ لمنتجاتها خاصة ب ADO.net‏ أو 
حتى شركات تقدم مزودات معتمدة من الشركات الأصلية تتمتع سرعه ابر و ممیرات 9 خدمات 


اضافية c‏ هذا الرابيط Jlis‏ عليها: 


$9 رابط‎ 
http://www.sglsummit.com/dataprov.htm 
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د. مکونات مجال الاسماء System.Data‏ 


يحتوي هذه الفئة على كل Le‏ يخص قواعد البیانات والتعامل معها من دوال و خصاتص و im‏ 
رسائل Exceptions suas tI‏ سنستعرض هنا سریعا آهم محتویات هذه Cum ARAM‏ ستفیدنا فى 


التعرف على خصائصها: 


۱ 8 ۵ ۱۵ on 


منه يتم اشتقاق الفثة الخاصة بالاتصال بقاعدة البیانات» يحتوي على الدوال التالية: 


public interface IDbConnection : IDisposable 
{ 
string Connectionstring {1 ger; set; | 
int ConnectionTimeout 1 get; } 
string Database { get; } 
ConnectionState State { get; } 
IDbTransaction BeginTransaction(); 
IDbTransaction BeginTraánsaction(IsolationLbevel il); 
void ChangeDatabase(string databaseName); 
void Close(); 
IDbCommand CreateCommand(); 
void Open(); 


Public Interface IDbConnection 
Inherits IDisposable 
Property ConnectionString() As String 
ReadOnly Property ConnectionTimeout() As Integer 
ReadOnly Property Database() As String 
ReadOnly Property State() As ConnectionState 
Function BeginTransaction() As IDbTransaction 
Function BeginTransaction(ByVal il As IsolationLevel) As IDbTransaction 
Sub ChangeDatabase (ByVal databaseName As String) 
sub Close () 
Function CreateCommand() As IDbCommand 
Sub Open )( 

End Interface 





: [DoCommand 
يتم منه اشتقاق الفنات الخاصة بالتعامل لاحقاً مع تنفين جمل الاستعلام ۰ يحتوي على الدوال‎ 


التالية: 
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public interface IDbCommand : IDisposable 


{ 


string CommandText { get; 

int CommandTimeout { get; 

CommandType CommandType { get; set; } 
IDbConnection Connection { get; set; } 
IDataParameterCollection Parameters { get; } 
IDbTransaction Transaction { get; set; } 
UpdateRowSource UpdatedRowSource { get; set; } 
void Cancel (); 

IDbDataParameter CreateParameter(); 

int ExecuteNonQuery(); 

IDataReader ExecuteReader(); 


IDataReader ExecuteReader (CommandBehavior behavior); 


object Bxecutebcalar(); 
void Prepare(); 


VB.NET 


Public Interface IDbCommand 


Inherits IDisposable 

Property CommandText() As String 
Property CommandTimeout() As Integer 
Property CommandType() As CommandType 
Property Connection() As IDbConnection 


ReadOnly Property Parameters() As IDataParameterCollection 


Property Transaction() As IDbTransaction 
Property UpdatedRowSource() As UpdateRowSource 
Sub Cancel () 

Function CreateParameter() As IDbDataParameter 
Function ExecuteNonQuery() As Integer 

Function ExecuteReader() As IDataReader 


Function ExecuteReader (ByVal behavior As CommandBehavior) 


Function ExecuteScalar() As Object 
Sub Prepare )( 


End Interface 
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As 112] 2۳62 06 ۳ 


: IDbDataParameter 


public interface IDbDataParameter : IDataParameter 


{ 
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byte Precision { get; set; } 
byte Scale { get; set; } 
int Size { get; set; } 


نحنوي علی: 





الباب السابع عشر قواعد البيانات ADO.net‏ 


VB.NET 


Public Interface IDbDataParameter 
Inherits IDataParameter 


Property Precision() As Byte 

Property Scale() As Byte 

Property Size() As Integer 
End Interface 





: IDataParameter 


public interface IDataParameter 

{ 
DbType DbType { get; set; ] 
ParameterDirection Direction 1 get; set; } 
bool IsNullable { get; } 
string ParameterName 1 get; set; } 
string SourceColumn { get; set; } 
DataRowVersion SourceVersion 1 get; set; } 
object Value { get; set; } 


Public Interface IDataParameter 
Property DbType() As DbType 
Property Direction() As ParameterDirection 
ReadOnly Property IsNullable() As Boolean 
Property ParameterName() As String 
Property SourceColumn() As String 
Property SourceVersion() As DataRowVersion 
Property Value() As Object 

End Interface 





: IDbDataAdapter 


public interface IDbDataAdapter : IDataAdapter 


{ 
IDbCommand DeleteCommand get; set; 


IDbCommand InsertCommand get; set; 
IDbCommand SelectCommand get; set; 
IDbCommand UpdateCommand get; set; 
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VB.NET 


Public Interface IDbDataAdapter 
Inherits IDataAdapter 
Property DeleteCommand As IDbCommand 


Property InsertCommand IDbCommand 

Property SelectCommand As IDbCommand 

Property UpdateCommand As IDbCommand 
End Interface 





: IDataAdapter 


public interface IDataAdapter 

{ 
MissingMappingAction MissingMappingAction { get; set; } 
MissingSchemaAction MissingSchemaAction { get; set; } 
ITableMappingCollection TableMappings { get; } 
int Fill (System.Data.DataSet dataset); 
DataTable[] FillSchema (DataSet dataSet, SchemaType schemaType); 
IDataParameter[] GetFillParameters(); 
int Update (DataSet dataSet); 


VB.NET 


Public Interface IDataAdapter 
Property MissingMappingAction() As MissingMappingAction 
Property MissingSchemaAction() As MissingSchemaAction 
ReadOnly Property TableMappings() As ITableMappingCollection 
Function Fill(ByVal dataSet As System.Data.DataSet) As Integer 
Function FillSchema(ByVal dataSet As DataSet, ByVal schemaType As 
SchemaType) As DataTable () 
Function GetFillParameters() As IDataParameter() 
Function Update(ByVal dataSet As DataSet) As Integer 
End Interface 





: IDataReader 


public interface IDataReader : IDisposable, IDataRecord 
{ 

int Depth 4 gat; | 

bool IsClosed { get; } 


int RecordsAffected { get; } 
void Close(); 

DataTable GetSchemaTable(); 
bool NextResult (); 

bool Read(); 
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VB.NET 


Public Interface IDataReader 
Inherits IDisposable 
Inherits IDataRecord 
ReadOnly Property Depth() As Integer 
ReadOnly Property IsClosed() As Boolean 


ReadOnly Property RecordsAffected() As Integer 
sub Closet) 
Function GetSchemaTable() As DataTable 
Function NextResult() As Boolean 
Function Read() As Boolean 

End Interface 





: IDataRecord 


public interface IDataRecord 

1 
int FieldCount { get; } 
object this[string name] { get; } 
object this[int i] { get; ) 
bool GetBoolean(int 1); 
byte GetByte(int 1); 
char GetChar(int 1); 
DateTime GetDateTime(int i); 
Decimal GetDecimal(int 1i); 
float GetFEloatírnt i); 
short Getintlo (int 1)? 
ingo CetInto2 (10t 1); 
long GetInt64(int 1); 
Flees 
bool ITsDBNull (ant i); 
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VB.NET 


Public Interface IDataRecord 
ReadOnly Property FieldCount() As Integer 
Default ReadOnly Property Item(ByVal name As String) As Object 
Set 
End Get 
End Property 
Default ReadOnly Property Item(ByVal 1 As Integer) As Object 
ber 
End Get 
End Property 


Function GetBoolean(ByVal i As Integer) As Boolean 
Function GetByte(ByVal i As Integer) As Byte 
Function GetChar(ByVal i As Integer) As Char 
Function GetDateTime(ByVal i As Integer) As DateTime 
Function GetDecimal(ByVal i As Integer) As Decimal 
Function GetFloat (ByVal 1 Integer) As Single 


Function GetIntl16(ByVal 1 Integer) cohort 

Function GetInt32(ByVal 1 Integer) Integer 

Function GetInt64 (ByVal i Integer) Long 

Y 

Function IsDBNull(ByVal 1 Integer) Boolean 
End Interface 





4. البداية مع SQL Server‏ 
chiil .1 4‏ قاعدة البیانات 
انتهینا من الفتات الاساسية في ADO.Net alle‏ و ele‏ وقت التطبیق الآن. 


سنحاو OF! J‏ تطبیق انشاء قاعدة بیانات مثلا للموظفين ياسم o3! . Employee‏ قم بتشغیل 


نسخة فیجوال ستودیو جديدة Windows Forms‏ ومن ثم قم باختیار المسار و البیانات اللاز مة. 


بداية لا بد أن یکون Sow‏ نسخة SOL Server‏ من الاصدار السابع أو احدث او على الاقل 


النسخة المو جودة مع الفیجوال ستوديو Express‏ على الرانظ النالی : 


رابط هي 
http://msdn.microsoft.com/vstudio/express/sq|l‏ 
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والتي تقع ضمن المجموعة المجانیه من مایکر و سوفت. 


الآن من قائمة View‏ قم باختیار Server Explorer‏ ستجده على الجانب ۰ قم بالضغط بالزر الأيمن 
واختیار Create New Sql Server Database‏ بالشکل التالي: 
Server Explorer | + 2X .-Fomics[‏ 
[ej || a ۱ ۲۱۳ Pee‏ 
سح pu TL Data Connections Ll ۳ ud‏ 


Ei. يك‎ Servers | [a] Refresh 


| 
| یه‎ zu" 
X 4 P^ Delete 











+] + * Ü 
E. d] ۲ | Add Connection... 
isl ای‎ j Create Mew SOL Server Database... 


io هی‎ J fey | Properties 

E BE ۱ 

H- p^] Performance Counters 
mj. gs Services 








۳ sees 


Create New SQL Server Database | x] الصورة 1.17 انشاء قاعدة بيانات جديدة‎ 
Enter information to connect to a SOL Server, then specify the ال‎ saa من‎ SOL Server من نوع‎ 
name of a database to create. 

Server Explorer‏ فى الفیجوال 


سنو ديو . | Refresh‏ | 


Log on to the server › اصبح بامكانك انشاء قاعدة البيانات‎ OS 


Server name: 


قم فقط بتحدید الاسم ثم اضخط Use Windows Authentication Create‏ )@( 


O) Use SQL Server Authentication 
بالشکل التالی‎ 


الصور ô‏ 2.17 انشاء قاعدة بیانات جديدة New database name:‏ 
من نوع ۲ SQL‏ و تحدید 
معلو مائها. 


Employee 
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۴ قد تظهر لك مشكلة عدم و جود سیرفر في الاصل لتتصل به. في الغالب حل هذه المشکلة 

یکون لعدم اتصالک بالشبكة ( فقط قم يتوصيل الشبکه - حتی في ale‏ عدم و جود اتصال 

بالانترنت - و جرب . فقط . 

**” قد يظهر لک اسم سیرفر و لکن تظهر لک رسالة الخطاً التالية : 

An error has occurred while establishing a connection to the server. When connecting to SQL Server 2005, 

this failure may be caused by the fact that under the default settings SQL Server does not allow remote 
connections. (provider: Named Pipes Provider, error: 40 - Could not open a connection to SQL Server) 

في هذه الحالة من البرامج قم باختیار 2005 Microsoft SQL Server‏ ومن ثم Configuration‏ 

Tools‏ ومن ثم SQL Server 2005 Surface Area Configuration‏ « ستجد من ضمن الخصاتص 

Surface Area Configuration for Services and connections‏ . قم بفتحها والتأحكد من ان 


خصائص Local and remote connections‏ مفعلة » قم ایضا بالتأكد من أن السیرفر یعمل. 
ایضا یمکنک منایعه محموعه من الحلول هنا : 


http://forums.microsoft.com/MSDN/ShowPost.aspx?Postl ۱ < 19262265۱16۱ D=1 





oM!‏ اصبح لديك قاعدة بیانات و جاهزة للعمل 60 سنبداً ياضافة جدول بیانات get!‏ ظفین بالشکل 


التالی : 


مه 
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قواعد البيانات ADO.net‏ 





Sas, سر‎ 
TI LM 
x 


| = 


Eg- TE Data Connections 


١ Or 


| É- Uh ahmed-pc\sqlexpress.Employee.db 








H- [3g Database Diagrams 
m. Eg Vi Add New Table 
و‎ E : New Query | 
E. Bm ۴۱ سس‎ 
B- 3 e] Refresh 
al Ty b| Properties 

۱ Se Assemt 

Sag Servers‏ ...م 


H- Mil Ahmed-PC 





n | ۲ 


gg] Data Sources | 


الباب السابع عشر 


الصورة 17. 3. اضافة جدول إلى قاعدة البیانات. 


لاحظ انه بامکانک اضافة اي محتویات بهذا الشکل Jis‏ الدوال 319 Stored Procedurecist‏ 





MP id 


Column Mame 


[First Name] 


[last Name] 


Age 
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وغیره . الآن قمنا باختیار اضافة جدول بالشکل التالي: 


Data Type 
nchar(1ü) 
nchar(10) 


smallint 


Allow Nulls 


3 E] 8 © Û 


الصور ô‏ 7 4. تعدیل حقول الجدو ل. 


الباب السابع عشر قواعد البیانات ADO.net‏ 


لتعیین مفتاح رئيسي نقوم باختیار set primary key‏ و لجعله autonumber‏ نقوم بتعدیل Identity‏ 


5 إلى yes‏ ومن ثم نقوم بتحدید Increment‏ و هو معدل الزيادة إلى 1 كما فى 
الشکل التالي: 


Column Mame Allow Mulls 


iint E] 
Remove Primary Key Ino Iz 

| Insert Column REA 
(10) E 


Delete Column = 
_ lint [v] 


[s] 


i 
C 


Relationships... I 
كا‎ 
Indexes/Keys... 
Fulltext Index... 


AML Indexes... 
8 ۱ Check Constraints... 


Haie . Se 


x 
i 





| SS Generate Change Script... 
| = = 
Properties 


Identity Increment 
Identity Seed 


Indexable 


EH 1 تقل‎ I 


۱ Identity Specification 





الصورة 17. د. اضافة المفتاح الرئيسي Primary Key‏ لحقل من حقول الجدو ل. 


سنتعرف على أنواع البيانات في الجزء اللاحق مباشر ô‏ . 
اخيرا بعد الانتهاء قم بحفظ الجدول باسم Employee Info‏ مثلا. 


بعد ان قمت بالخطوات السايقة » يمكنت استعراض الجداول التى لديك وفتحها للبدء فى ادخال 


البيانات بالشكل التالى: 
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قواعد البیانات ADO.net‏ 








L eem Mem EU z | 
| IFE CAL 
J = i 


[=] | ۲ 5 
g- (gi Data Connections 
| E Ob ahmed-pc\sqlexpress.Employee.dbe 














H- C Database Diagrams 

Ri Tables 

a Ga Views | Add New Table 
H- [38 Stored P Add New Trigger 


Eel [gg Functio Y | 
E Synonyr NOW duc 

j- Types Open Table Definition 
Ge Ld Assemb|. "n 


: Show Table Data 
fea Ta Servers | 


fl m Ahmed-PC 


Copy 
Delete 


Refresh 
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الصورة 17. 6. استعراض البیانات المخزنة فى الجدول و التعدیل و الاضافة علیها. 
وینفس الطريقة یمکنک اعادة تصميم الجدول و خلافه ۰ قمت بادخال بعض البیانات بالشکل التالی 
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مثلا > 





| id First Name last Name Age 
E 8 Ahmed Gamal 22 

2 Hossam Sadik 21 

3 Khaled Adel 21 

E Ahmed Saied 21 

5 Ahmed Essawy 23 
E NULL Ahmed @ Emad 0 21 
* NULL NULL NULL NULL 


الصورة 6.17 ادخال البیانات. 
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قواعد البیانات ADO.net‏ 


المجال إلى 


9,223,372,036,854,775,807 
2,147,483,647 
32,767 
255 
1 
11-5385 
(OP Sis) il 
+922,337,203,685,477.5807 
+214,748.3647 
1.7/98 + 308 
3.40E + 38 


Dec 31, 9999 


Jun 6, 2079 
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أنواع البیانات في SQL Server‏ : 


المجال من 


-9,223,372,036,854,775,808 
-2,147,483,648 
-32,768 
0 
0 
-10538 1 
-10^38 +1 
-922,337,203,685,477.5808 
-214,748.3648 
-1.79E + 308 
-3.40E + 38 


Jan 1, 1753 


Jan 1, 1900 


حرف -non-Unicode‏ يقبل حتی 8000 حرف 
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p 
bigint 
int 
smallint 
tinyint 
bit 
decimal 
numeric 
money 
smallmoney 
float 
real 


datetime (3.33 
milliseconds 
accuracy) 


smalldatetime 
(1 minute 
accuracy) 


char 


varchar 


الباب السابع عشر قواعد البیانات ADO.net‏ 





varchar(max)‏ حرو ف non-Unicode‏ تحمل حتی 
1 حرف 
text‏ حروف non-Unicode‏ تحمل حتی 2,147,483,647 حرف 
nchar‏ حروف Unicode au‏ تحمل حتى 4,000 حرف 
nvarchar‏ حروف ۲۱۱6006 لاتحمل حتی 4,000 حرف 
nvarchar(max)‏ حرو ف non-Unicode‏ تحمل حتی 
230 حرف 
ntext‏ حروف (pe3Unicode‏ حتی 1,073,741,823 حرف. 
binary‏ بیانات ثنائية ثايتة تحمل حتى 8,000 Of‏ بایت. 
varbinary‏ بیانات ثنائية متغيرة تحمل حتى 8,000 Of‏ بایت. 
varbinary(max)‏ بیانات ثنائية متغيرة تحمل حتى 231 cab‏ 
image‏ بیانات AUS‏ متغيرة تحمل حتی 2,147,483,647 بایت. 


الجدو J‏ 17. 1. آنواع البیانات في ال SQL Server‏ 
وإذا كنت قد تعودت على نظام تسمیه أنواع البيانات في ۲ فهدا الحدول من مایکر 9 سو فت 


یوضح لك نظير كل نوع بيانات في net‏ : 





CLR نوع البيانات‎ (SQL CLR .net نوع البيانات في‎ SQL SERVER 
Server) 
Sgllnt64 Int64, Nullable«Int64» Bigint 
SglBytes, SalBinary Byte[] Binary 
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SglBoolean 


SglDateTime 
SglDateTime 
SglDateTime 


لا بو جد 


SglDecimal 
SglDouble 
یو جد‎ M 
Sgllnt32 
SglMoney 
50۱0۳۱3۲5, ۶8۵ 
لا یو جد‎ 
SglDecimal 
50۱0۳۱3۲5, ۶۵ 


5011315, ۶۵ 


SqlSingle 
بو حل‎ Y 


Sqllnt16 
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Boolean, Nullable<Boolean> 


DateTime, Nullable<DateTime> 
DateTime, Nullable<DateTime> 


DateTime, Nullable<DateTime> 


DateTimeOffset, 
Nullable<DateTimeOffset> 


Decimal, Nullable<Decimal> 
Double, Nullable<Double> 
لا یو جد‎ 
۱۱۱۲32, Nullable<Int32> 
Decimal, Nullable<Decimal> 
String, Char|] 
لا یو جد‎ 
Decimal, Nullable<Decimal> 
String, Char]] 


Char, String, Char[], 
Nullable<char> 


Single, Nullable<Single> 
Byte[] 


Int16, Nullable«Int16» 





bit 
char 
cursor 


date 
datetime 
datetime2 


DATETIMEOFFSET 


decimal 
float 
image 
int 
money 
nchar 


ntext 


numeric 
nvarchar 


nvarchar(1), nchar(1) 


real 


rowversion 


smallint 


قواعد البیانات ADO.net‏ 





SglMoney 


TimeSpan 

لا یو جد 

SqlByte 

SglGuid 

لا بو جد 
SqlBytes, SqlBinary‏ 
SqlBytes, SqlBinary‏ 

M‏ یو جد 


50۲۱۲ 


Decimal, Nullable<Decimal> 


Object 


TimeSpan, Nullable<TimeSpan> 
یو جد‎ Y 
Byte, Nullable<Byte> 
Guid, Nullable<Guid> 
نفس الفئة المحددة‎ 
Byte[] 


byte, Byte[], Nullable<byte> 
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smallmoney 
sql variant 
table 
text 
time 
timestamp 
tinyint 
uniqueidentifier 
User-defined type(UDT) 
varbinary 
varbinary(1), binary(1) 


varchar 


xml 


الجدول 17. 2. آنواع البیانات في ال SQLServer‏ و مقارنتها مع آنواع البینات في الدوت نت. 


SQL Statements 2 .4 


لمعالجة البیانات فى قاعدة البیانات و تنفید عملیات الاضافه والتعدیل و »4394 اضافه 
لعملیات الانشاء والتکوین نحتاج إلى لغة تفهمها قواعد البیانات ۰ هذه اللغة هي SQL‏ وهي اختصار 


.Structured Query Language ل‎ 


و تصلح تقنية الاستعلام للعمل مع جمیع آنواع قواعد البیانات : Access - MS sql - Oracle‏ 


۲ و غیر ها. 
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الباب السابع عشر قواعد البیانات ADO.net‏ 


تقوم هذه الجملة بالبحث - كما هو شائع - إلا أنها تستخدم أيضا في الاضافة والحدف والتعدیل 


وانشاء الجداول وحتى قواعد البيانات . والتحكم بها والادارة وغير ذلت. 


هذه هي الدوال الرئيسية في لغة الإستعلام هذه : 





الصورة 17. /. آنواع دوال الاستعلام في لغة ال SQL‏ 
الصيغة العامة لجملة الإستعلام الأشهر للبحث هي : 


SQL ۱ m 





SELECT Colums Name FROM Table Name; 


نلاحظ تکون جمله الاستعلام من أربعة آجزاء: 


601 561: وهي التي تميز جملة Co!‏ عن غیرها من جمل SQL‏ 
:Colum Name‏ اسم الحقل أو العمود الذي ترید له أن يظهر. 
ix ۵ LB COM‏ الک صيغة خاصة يجملة البحث . 
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الباب السابع عشر قواعد البیانات ADO.net‏ 


:Table Name‏ هنا نكتب اسم الجدو ل. 
و لنلق نظرة قبل البدء على ما یمکن تسميته ( القواعد النحوية ( deat Syntax‏ الاستعلام : 


* لا يوجد أي فرق بين الأحرف الکبيرة والصغيرة. 
* مسافة = مسافتان = عشرة أسطر : لا يعترف يأكثر من مسافة. 
۴ تنتهي جميع جمل الإستعلام بفاصلة منقوطة : إلا Loi‏ قد لا نحتاج الیها في تطبيقات البرمجة 
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غالبا . 


و هدا مثال على الجملة السايقة : 





SQL ۱‏ 
وإذا كنا نرید استخراج آکثر من عمود فیمکننا و ضعهم بالتوالي و تفصل بينهم الفاصلة . فمثلا 


لاستخراج الاسم الأول والاسم الأخير : 


SQL | aye 





SELECT FName, LName FROM Tb Main; 


ولاستخراج جمیع البیانات فاننا نضع * محل اسماء الحقول وذلک بالشکل التالي : 


SQL | Aye 
لاستخراج الإسم الأول مع‎ Misa DISTINCT ... و لاستخراج البیانات و لکن يدون تکرار نستخدم‎ 

: حذف التکرار‎ 
SQL | aye 


2 


ot Lal‏ تیب البیانات المخر جة تصاعدیا أو تناز ليا نستخدم الأمر؛ 








SQL | Aye 





... ORDER BY colum 


أو للتناز لي 
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ڪو د SQL‏ 


... ORDER BY colum DESC 





نمثلا لاستخراج جمع البيانات مع الترتيب التصاعدي حسب الاسم الأول : 


ڪو د SQL‏ 


SELECT * FROM Tb Main ORDER BY FName DESC; 





ویمکننا عمل مستويين للترتيب - كما هو شاتع ‏ و دلک باستخدام الفاصله Mis.‏ للتر تیب حسب 


الاسم الأول ومن ثم الاسم الأخير و لکن تناز لیا هذه المرة : 


SQL 55 


SELECT * FROM Tb Main ORDER BY FName,Lname ; 





LX‏ صيغة استخدام المساواة ڪشر de‏ فی عملية الاستعلام الصيغة التاليك: 


SQL | ye 


SELECT * FROM Tb Main WHERE Field = Value; 


م2 


ويمكئنا استخدام > آو < آو >= أو <= أو >< s‏ 





وأخيراً معاملين جدد سنشر حهم باذن الله لاحقاً وهما LIKE‏ و BETWEEN‏ 
فمثلاً للاستعلام عن الأصدقاء الذي تساوي أعمارهم 18 سنة : 


SQL 15 


SELECT * FROM tb Main WHERE age = 18; 





SQL ۱ 


SELECT FName,LName FROM tb Main WHERE age > 50; 


وسنضع Value‏ بين علامتي تنصیص مفردة في Alle‏ كانت نصوصاً وذلک بالشکل التالي - 


للبحث عن الأشخاص والذین لهم الإسم ( acai‏ ) + 





ڪو د SQL‏ 


SELECT * FROM tb Main WHERE Fname = 'ahmed'; 





كما سنضع علا متي i‏ نك البحث عن تواريخ Yo.‏ توجد آمئله لتاريخ فى قاعدة البیانات > لکنها 


4561 صيغة Aged‏ بالتالى : 
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SQL كود‎ 


SELECT * Form Tablel WHERE Date > #12/03/04#; 





والان : fale‏ لو آردنا البحث بتحقیق مجموعة شروط أو آحدها أو تحقیق شرط مع انتفاء آخر ٩‏ 
من أجل هذا الغرض نستخدم المعاملات المنطقية And Al‏ و Or‏ كما تعلمنا فى Glat‏ 
البر محه. 


والآن إلى QU‏ سریع ۰ سنبحث عن الأشخاص الذین یکبر عمرهم عن 17 بشرط ألا یکونوا 


متروجين ۰ 


ڪو د SQL‏ 


SELECT Fname FROM tb_main WHERE age > 17 AND marry = false; 


, 





استخدام المعامل LIKE‏ : 


نستخدم المعامل LIKE‏ للبحث عن الکلمات المشایهه لتعبير معین ... 


و نست‌خدم تلمعامل LIKE‏ الصيغة التالية ؛ 


Xoli ۱ Ape 





SELECT * FROM Table WHERE Field LIKE '$Name$'; 


نستخدم 5 للدلالة على و جود آحرف Le‏ ... وقد نستخدمها فى البداية » أو النهاية أو كليهما . 
وسيتضح الأمر فى الأمثلة: 


لعرض الأشخاص الذين قد تحتوي أسماءهم الأولى على MIM‏ ... سنستخدم جملة استعلام بهذا 


الشکل : 


SQL 


SELECT * FROM Tb Main WHERE FName like 'Shm%'; 





: لذا لن نضع 5 قبل كلمة البحث‎ A لو آردنا البحث عن الأشخاص الذين تبداً آسماء‌هم يحرف‎ Lei 


SQL 55 


SELECT * FROM Tb Main WHERE FName like TAT; 
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ولو أردنا البحث عن الأشخاص الذين ينتهي اسمهم يحرف معين سنضع 5 في البداية دون النهاية. 


مللا حظة 


في MS Access‏ نستخدم * بدلا من % 
مما سبق نستنتج أن 70 تعنى أي عدد من الحروف › لكن ماذا لو أردنا تحديد عدد الحروف $ 





فى هذه الحالو نستخدم ^ " » مناظرها فى ACCESS‏ هو علامة الإستفاهم "9 


الإستخدام الرمز 

أي عدد من الأحرف ابتداء من صفر فصاعدا 

(underscore) . حرف واحد فقط‎ 
[ J OW Gas Pipes SEO Ben ED eet PORE weg Aes 

Like '[A-N]ack' وال لا‎ 


حرف واحد فقط شريطة ألا يكون هو المحدد c‏ مثلا 





الجدول 17. 3. بعض الأمثلة لاستعمال المعامل LIKE‏ في عملیات المقارنة. 
إذن : ماذا لو آردنا أن نبحث عن الاشخاص الذين تبداً آسماء‌هم يحرف A‏ يشرط OF‏ یکون iae‏ 


حروفهم 3 فقط. 


SQL 


SELECT * FROM Tb Main WHERE FName like 'A  '; 





استخدام المعامل BETWERN‏ 


نستخدم هذا المعامل Com‏ ضمن نطاق معین ‏ و آشهر استعمال لهذا المعامل هو استخدامه في 


البحث ضمن التواريخ. 


يأخن البحث باستخدام BETWEEN‏ الصيغة التالية: 


SQL | 2 





SELECT colum FROM table WHERE field BETWEEN vl AND v2; 


462 


الباب السابع عشر قواعد البیانات ADO.net‏ 


فمثلا لاستخراج الأشخاص الذين تترواح آعمارهم بين 20 و 60: 


Selec. ^ 


FROM tb maim 
WHERE age BETWEEN 20 AND 600; 





ویمکن استخدام نفس الطريقة مع الأسماءء والتواریخ بطبيعة الحال. 
تستخدم العديد من الدوال ضمن طيات جمل الاستعلام » وهي شائعة الاستخدام ۰ ومريحة » 
وتعيد قيمة وحيدة - لا تعيد جدول - سنتعرف على بعض الدوال مع بعض الأمثلة خلال هذا 


veu sid 


ولننظر نظرة سريعة إلى الصيغة العامة لاستخدام الدوال والتي تأخن الشکل التالي: 


SQL 


SELECT func(colum) FROM table WHERE condition; 





“AVG الدالة‎ 


تعطینا هده الدالة متوسط حقل «Le‏ لحساب متوسط MI‏ عمار فی قاعدة البیانات Mie‏ ككف آمرا 


SQL 


SELECT AVG(Age) FROM tb main; 
سنفعل لو لم نستخدم هذه الداله » كنا سندور على جميع السجلات حيث‎ fale و لک ان تتخيل‎ 
- نجمع ارقام كل سجل ثم ننتقل إلى التالي وهکدا - بر مجیا.‎ 





آیضا يمكننا استخدام الدالة بشر ط به فل لجات مو dos‏ آعمار الأشخاص الذين Y‏ ترید 
آعمار هم عن 25: 
SQL‏ 


SELECT AVG(Age) FROM tb main WHERE age < 25; 
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لو لاحظت لو جدت أن ناتج الدالة یظهر في حقل تحت اسم ۳2011000 أو ما شابه ... لذا قم - اذا 


كنت ترید - باعادة تسمية حقل الناتج عن طریق AS‏ كما تعلمنا سابقا وبالشکل التالي: 


SQL 


SELECT AVG(Age) AS AVGAGE FROM tb main WHERE age < 25; 





لاحظ أن Allall‏ سوف تتحاهل السجلات الفارغة... 


الدو ال Sum,Max,Min‏ : 
تعطي هذه الدوال المجموع -الأكبر - الأصغر على التوالي ۰ وهذا مثال على آکبر poe‏ في قاعدة 
البیانات: 


SQL 


SELECT max(Age) AS mxAGE FROM tb main; 





لا تنس أن بامکاننا وضع شرط لعملية الاستعلام. 
:Count atiati‏ 


و تعید هذه ade ANU‏ السجلات c‏ لنعید ade Me‏ السجلات : 


SQL 


SELECT COUNT (*)} 
FROM Tablel; 


SQL 


SELECT COUNT (DISTINCT Title) 
FROM Tablel; 





العلاقات : 
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كانت هذه بعض الدوال البسيطة والاکنر شهرة فى TSgl‏ والآن ۰ ماذا لو كانت لدينا 


علاقات ونرغب في العمل علیها. في هذه الحالة سوف نستخدم الجملة بالشکل التالي : 


SELECT tb main.Fname,;, tb omain.lnameo, Ib.Bl.passport, tb.rli.bolass, tb rl.rrormi 


FROM tb main, tb r1 
WHERE tb main.Number = tb rl.Number; 





OY! Lica‏ تلاحظ الفروق بين هذه الطر Aas‏ والطر Aas‏ السایقه: 


آو لا : نقوم بكتاية اسم الجد و ل.اسم الحقل و ذلک مهم Las‏ نتعامل مع آڪتر من جدو ل. 
LOU‏ : نقوم بکتابة اكثر من جدول بعد عبارة LOY FROM‏ نرید النواتج من أكثر من جدول. 
ثالثا : السطر الأخير من جملة الاستعلام هو لكي یعر ض المعلو مات التي تتشابه آرقامها في 


الجدو لین سویه. 


: DDL 


ذكرنا أن DDL‏ تختص بالتعامل مع هیاکل قواعد البیانات » سنبدا آو لا بصيغة انشاء جدول وذلک 


بالشکل التالی: 


SQL 


CREATE TABLE tbl ( colum type, colum type, 
( من نوع‎ Name تحت اسم 2 يحتوي على حقلين » الاسم‎ M aa وكمثال على ذلك ... لننشی‎ 


نص - String‏ ) والآخر Age‏ من نوع Number‏ 





SQL 


CREATE TABLE tbl (name text,age number) ; 





إذن مادا لو آردنا أن نحدد حجم Jam‏ العمر Name‏ يخمس خانات فقط ... o3‏ ضع aac‏ الخانات 


بين قو سین مع تعيين نوع بيانات الاسم ك Text‏ و ذ لک بالشكل التالي: 


SQL 


CREATE TABLE tbl (name text(6),age number ); 





465 


الباب السابع عشر قواعد البیانات ADO.net‏ 


آخر نقطة سآشرحها في انشاء الجداول هي كيف نجعل الحقل لا یقبل قراغ Null‏ - 
ولنجرب هذا المثال مع الإسم أيضا: 


SQL 





CREATE TABLE tbl (name text(6) Not Null,age number ); 


ولکن ماذا عن الحذف ... في الواقع هذا الکود یقوم بحذف الجدول الذي قمنا بانشاءه توا: 


SQL 


DROP Table tbl; 


و لو كان هذا الجدول مرتبطا بعلاقات فلا da‏ من تحدیثها باضافة CASCADE‏ إلى آخر الکود 


و ذلک بالشکل التالی: 





SQL 





DROP Table tbl CASCADE; 


والآن سنبدآ فى اضافة حقول ad!‏ و ذلک يعد عملية الانشاء - أعتقد أن الفرق بين الحدو (J‏ و قاعدة 
البيانات والحقول أصبح و اضحا. - 


نستطيع اضافة الحقول بصيغة عامة بالطريقة التالية: 


SQL ۱ See 





ALTER TABLE tbl ADD colum type; 


فلنضف حقلین جدیدین : الأول هو تاريخ المیلاد والثاني النوع ) ذکر - آنثی ) : 


SQL 


ALTER TABLE tbl ADD birth Date date,Gender Text; 





والآن لنحذف آحد هذه الحقول و لیکن حقل ... Gender‏ لاحظ آننا دائما نضیف كلمة 


CASCADE‏ لتحديث العلاقات - في حال وجودها - » ودلک بالشکل النالي: 


SQL 


ALTER TABLE tbl DROP gender CASCADE; 
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DML‏ مرة آخری: 


بعد ان تعلمنا جزء البحث والاستعلام فى DML‏ سوف نتعلم OY)‏ اضافة السحلات ۰ وسوف نستخدم 


Tb. Main‏ حجدول لنجرب آوامرنا عليه . والآن إلى الصيغة العامة لأمر الاضاقة: 


SQL 


INSERT INTO table VALUES (vl, 


لاحظ آننا سنمرر القيم واحدا وراء الثاني وتفصل agin‏ قاصله » مع مراعاة وضع النصوص بين 





علا متي ننصیص والتواريخ بين علامتي ET‏ 


سنمرر القيم التالية : الرقم - الاسم الأول - الاسم الأخير - رقم الهاتف - العمر - العنوان - البرید 
الإلكتروني - السنة - اللغة - الموقع - متزوج/لا - ملاحظات. 


و ذلک بالشكل التالى: 


INSERT INTO tb main VALUES 


(11; "ahmed"; "gamalt; 6066606; LO; Calro','Hammada2U9P1','Frirst 
Year','','',false,''); 





الصيغة العامة لتعديل بيانات سجل بالشکل التالی: 


SQL 


UPDATE table name 
SET columl = vl , colum2 = v2 
WHERE colum = v; 


سنجرب Sle QS‏ لجعل العمر = 28 والموقع = www.vb4arab.com‏ للشخص الذي اسمه 
الأول( Ahmed‏ ) والاخیر ) (Gamal‏ : 





UPDATE tb main 


SET age=25 , site-2'www.vb4arab.com' 
WHERE fname-'ahmed' AND lname='Gamal'; 





و لکن ماذا عن الحد اف ... فى الواقع IG‏ حمله 4x Co!‏ عامه حائنالی: 
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SQL | ape 


DELETE FROM table WHERE colum = value; 


ويمكن أن يكون الحذف تحت تأثير تحقق أكثر من شرط .. في المثال التالي سوف نحد ف جميع 





الأشخاص الذين تزيد أعمارهم عن الأربعين: 


SQL | كود‎ 
DELETE FROM tb main WHERE age>40; 


و لکن ماذا عن حذف حامل محتويات جدول ما ... هذه هی الطريقة: 





SQL | aoe 


DELETE * FROM table; 





Stored Procedures .3 .4 


ال Stored Prcoedure‏ هو جملة استعلام مخزنة في قاعدة البيانات » الموضوع سبك جد 


ولذا لنستعرض سوية جملة الإستعلام تلك : 


SQL 





SELECT [First Name] FROM employee info WHERE age»21; 


وهو ما یتم تحویله ل Procedure‏ بالشکل التالی : 


CREATE PROCEDURE dbo.GetAge 
@firstname char(10) output 


AS 

SELECT Gfirstname =[First Name] 
FROM Employee info 

WHERE age » 21 





- السطر الأول Create‏ أو Alter‏ ثم اسم ال Stored Prcoedure‏ . 


- السطر Gli‏ يحتوي على البارمیترات أو ال return value‏ يتم تحدید نوعه 
و طریقته Input‏ أو Output‏ . 
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الباب السابع عشر 


- السطر الثالث جملة الاستعلام . 


والآن ستذهب إلى قسم Stored Procedure‏ و سنختار انشاء واحد جدید و نکتب فيه هذه الاستعلام: 


۲۵ ۱۷۷ رگ دون وی‎ 1 - Microsoft Visual Studi 





File Edit View Project Build Debug Data 





[jÎ Cata Connections 





Uk ahemed-possglesprest. Employer. AS 


J Database Diagrams 
ug Tables 

Î Employee 
k- Î Employee inia 
a Wetwed 
Î Stored Procedures 


— 


Add Mew Stored Procedure 


۳ Funct 
di migi 3 Ünen 
73 Ty 
a" nm Execute 
E Ll aser 
Za Servers Step Inte Shored Procedure 
ul "n 
E Toolbox Za Servei — 
E| Refresh 
Output 
lij Properties 


Show colput fers E 


۱۴11۳85 55 = © ! 


| Running [dbo].[GatAqe] 


Firaz Wasa 


Alea di 
He zog &ffactad. 


3 cowie) raturrad! 
۴1 ۴۱۷ ۲۳58 = EL 
(02۳۳2 VALUE = ü 


finished ranming [dbol.lcGatAge] 


۳ Error Unt! aj Output 


Lie: Ma‏ ين 








Tenis Tes Analyze 


b Debug 


Window Help 
- Any CPU 


| ALTER PROCEDURE dbo.GetAge 


Bfirstname chnr(iD) output 


SELECT [Firsr Base) free |] 
San eee mo سے‎ ee mc om س کے‎ mo ma mom سے‎ mcs om lee 





[Enim RUND Ed 
| te fet - ۳۵۳۵ 


= | umpe 


Loyrt info where age > 21 
m= s sa rec Mim e: mame m mon aon m occa m m سے‎ 


= | PR EL 2-2 


= x bolton Explorer -WindoesForrsAppl. » HB X 
— | hh | لغ اف‎ 
z] Fr Solution SWinsdowsFormesAnphicstionlü' [1 pro: 
LS WindowsFormsApplicationiü 
i s Propa 
xj References 
E] Famd.cs 
of} Progeam.cs 


=| à m i 


- 1 
B 


۳ E | 5 Solution Explorer ing Dims Vins 





= 


- ¥ X Property 
Get/uge Stoned Procedure 





E Aice Phorhip TS f E et‏ مرج 


tored Procedure الصورة 17. 8. اضافة‎ 


یمکنک تجربة الناتج عن طریق اختیار Execute‏ وسیکون الناتج Lind‏ مثل هذا 
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X | dbo.GetAge: Stor..xpress.Employee!" | dbo.Employee: كمع رجض يه[‎ 
ALTER PROCEDURE dbo.GerAge 
|. [jÎ Data Connections A Bfirstname char(10) output " 
j- (i ahmed-peisglexpress. Employee. AS سس 6ه‎ -a 
x- [gl Database Diagrams ELECT [First Name] from Employee info where age > 2i 
l^ La Tables 
m- La} Employee 
H- E Emplayee info 
He La) Views = 


E E 
E 


j- Ll Stored Procedures 


1 = 
a HEE 


H- C Funct Add New Stored Procedure 


#- Lal 6 | Open 

H- Dg Types 

H- Dg Asser, Execute 
=|. Maj Servers Step Into Stored Procedure 
3° Toolbar Ta Serves 2 Delete m ۲ || 
یت‎ — | [E] Refresh | 


Output 





Properti‏ رد 
Show output from: [ 4. Pees‏ 


Running [dba] . [GetAge! 1 Bflrwinam mti. 


hmed 
|n raws affected. 


2 ۳5۶ | 8[ returned) 

firsrtname = t 

IRZIURHM VALUZ = Q 

inimghed sunning Idbool.IzetAgel. 





الصورة 17. 9. نتائج mas‏ ال .Stored Procedure‏ 
یمکنک جعل جملة الاستعلام تقول Sac:‏ تسه ما الشرط المطلوب › الشکل التالي 
کمثال : 


ALTER PROCEDURE dbo.GetAge 
ücondrtron int, 
@firstname char (10) output 


AS 

SELECT @firstname =[First Name] 
FROM Employee info 

WHERE age > @condition 





فى هذه الحالة یمکنک تمریر بارمیتر سواء من البرنامج او حتی فى agaist SQL Servers!‏ بتنفید 


. الاستعلام على اساسه‎ Alem 


You Insert أو‎ Delete او‎ Update لا تنس أن بامکانک عمل نفس جملة الاستعلام‎ (ene 


من Select‏ > و حسب Ale‏ الاستعلام المطاو به. 
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SQL Injection .4 .4‏ 
لو كنت ترید معرفة لماذا نستخدم Yur Stored Procedure‏ من جمل الاستعلام مباشرة 
فهدا هو الجزء الذي علیک آن تهتم به كتير . 


ANS ض آنک داخل بر نامجحک تقوم يعملية تسجيل الدخول ۰ عن طریق اسم المستخدم و‎ Za 
: المرور‎ 


ڪو د | CH‏ 


string cmd = "select id from Users where nams like '"+textBoxl.Text+"' and pass 
like "B rextBoOx2.TextcT""'". 


الطبيعي أنه لو كان الاسم موجود فسوف تعيد الدالة قيمة Lei ID‏ في حالة العکس فلن 3953 
بنتيجة » والآن لنفترض أن شخصا ما قام بكتابة الجزء التالي في مربع النص الأول : 





insert into Users values(1,'NewUser','1234-(' 
سیکون‎ Ade AM لن یدخل هذه المرة » و لکنه سیقوم ياضافة هذا المستخدم للجدول . في المرة‎ 
11! 1234 وبرقم سري‎ NewUser بامکانه الدخول باسم‎ 
: فهذا سیحقق الشرط‎ c بکتابة الجملة التالية في مريعيي النص‎ ald أو ابسط من ذلك , لو‎ 
a’ or 't'='t 
ضوع ؟‎ $e] هل تخیلت حجم الضرر الذي يمكن أن يسببه هذا‎ 
يمكن أيضاً أن یقوم بکتابة:‎ 
drop table Tablename 
!!! و فقط‎ 


تفيدك ال Stored Procedure‏ فى أن أي قيمة يتم ادخالها داخل المتغیر تعامل معاملة متغیر 


فقط ولا یمکنها التنفين آیدا » ویمکننا عملها بطريقة آخری سنتعرف علیها لاحقا ... 
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4 د. العلاقات 


قم Joa‏ جدول فرعي متلا نضع فيه المشاریع التي يعمل علیها كل مو ظف. سیکون الناتج 
شینا مثل هذا: 


| Id Employee ID ۱ Project Name 
1 1 Traffic System 
2 2 Gls 
3 1 GIS 
E 4 Rowad 
3 5 Rowad 
6 Rowad 


he | NULL NULL 


الصورة 17. 9. اضافة جدول جدید. 
daa yt‏ العلاقات » من القائمة الجانبية ستجد Database Diagram‏ . قم باختیار Add New‏ و قم 


بسحب القیم التي تود ربطها في العلاقة بالشکل التالي مثلا: 





tee DE umm E موی‎ TERIS. جح‎ x = - - E 
تس تنس‎ > 3 X . dbo.Diagram1: Dia..xpress.Employee) | Projects: Query(a..lexpress.Employee) | dbo.Projects: Tab..xpress.Empleyee)" | TX 
3 Th ا‎ 2 


up Data Connections 
= ا‎ ahmed-pesglexpress. Employee. 














H- LE - z 
=|. J Table Add ای بیدا‎ Projects * 
H- لت‎ En [2] | Refresh employe ۷ id 
p- Eg En ug Properties T id , كت‎ Employee ID 
I ed 
۳ ۲ [First Name] [Project Mame] 
Views 
3- D Stored Procedures [last Name] 
H- [4] GetAge Age 
H- Ll Functions 
H- Lg Synonyms 
H- Lg Types 
H- Lg Assemblies 
z- fa Servers 
al n , 2 || 
e Toolbox ig Server Expl... تلور‎ ata Sources al E 





الصورة 17. 10. مخطط العلاقات بين الجداول في قاعدة البیانات Database Diagram‏ 
هنا نكون قد انتهینا مما نحتاج إليه كثيراً في Sql Server‏ لو كنت تحب التعرف على المزید في 
عالم SQL Server‏ يمكنك البدء من هنا: 

رابط هج 


http://msdn.microsoft.com/en-us/sglserver/default.aspx 
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5. الوضه المتصل 


5 1. التعامل مع ال ConnectionStringBuilder‏ 


يوفر لك هذا الکائن طريقة تفصيلية لبناء ال Connection String‏ الخاص بك ؛ هذا 


المثال يوضح الأكثر استخداما: 


SqlConnectionStringBuilder cnStrBuilder = new SqlConnectionStringBuilder(); 
cnStrBuilder.InitialCatalog = "Employee"; 

cuotrBuilder.DatasSource = @" (local) \SOLEXPRESS”; 
CcnStrBuilder.Connectlimeout = .30; 

cnStrBuilder.Password = "124"; 

cnStrBuilder.UserID - "Ahmed"; 

SqlConnection cn = new SqlConnection(); 

cCnocoHnnectrionotring s CholrBuilder- Connections ring; 


VB.NET 


Dim cnStrBuilder As New SqlConnectionStringBuilder() 
cnStrBuilder.InitialCatalog = "Employee" 
cnStrBuilder.DataSource = (local) \SCLEXPRESS" 
cnStrBuilder.ConnectTimeout = 30 
cnStrBuilder.Password = "124" 

cnStrBuilder.UserID = "Ahmed" 

Dim cn As New SqlConnection () 

cnoconnsectionotring = onotrbBuilder.Connectrionotrrzng 
cn.Open() 





Co‏ تجد: 
InitialCatalog‏ لتحدید اسم قاعدة البیانات 


SUL لتحديد مسار قاعدة‎ DataSource 


ConnectTimeout‏ لتحدید الوقت الذي يمكن استغر اقه من dal‏ محاو AJ‏ الو صول إلى قاعدة 


البیانات او ايقاف العملية عند انتهاءه. 
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Password‏ - كلمة مرور قاعدة البيانات إن و جدت. 
UserID‏ - اسم المستخدم لقاعدة البیانات إن و جد. 
هناك العدید من العناصر الأخرى آیضا یمکنک استعراضها من هنا: 


رابط هي 
http://msdn.microsoft.com/en-‏ 
us/library/ system.data.sgdlclient.sglconnectionstringbuilder members.aspx‏ 


Command Aiall التعامل مع‎ . .5 


ال Command‏ هي جملة الاستعلام التي نستخدمها لتنفین اي نوع من العملیات على قاعدة البیانات 


تنقسم إلى ثلاث انواع رئيسية: 


StoredProcedure -‏ 
TableDirect -‏ 
Text -‏ 
في المثال السابق استخدمنا ال Command‏ كجملة استعلام نصية مباشرة Text‏ كانت بالشکل 
التالي مثلا: 
CH‏ 


string strSQL = "Select * From Employee Info"; 
SqlCommand myCommand = new SqlCommand(strSOL, cn); 


VB.NET 


Dim strSQL As String = "Select * From Employee Info" 


Dim myCommand As New SqlCommand(strSQL, cn) 


SqlCommand testCommand = new SqlCommand(); 
testCommand.Connection ems 
testCommand.CommandText = strSQL; 
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VB.NET 


Dim testCommand As New SqlCommand () 
testCommand.Connection = cn 
testCommand.CommandText = strSQL 


اثناء التنفين قمنا بریطها مباشرءة باستخدام ExecuteReader‏ ۰ في الواقع هناك duc‏ طرق 





عدة طرق للتنتفيد: 


:bxecutehReader‏ في حالة کون الناتج عدد كبير من البیانات . يتم تعريف 
DataReader‏ وربط الناتج به لقراءته . وهو ما تعرفنا عليه في مراحل سايقة. 

1167© 1ك ۳۶6: في Ate‏ عدم و جود Tigi‏ اصلا > متل تعريف عملية gi Update‏ 
Delete‏ حیث الناتج الوحید هو تنفین العملية من عدمه + سیتم التعرف عليه لاحقا. 


:ExecuteScalar‏ في all»‏ کون الناتج وحيد » مثل الاستعلام عن فقط عن الاسم الأول 
للشخص صاحب الر قم القو مي XXXXXX‏ 


XmlReader يتم تعریف‎ XML تئفين الناتج واعادته على شکل‎ : ExecuteXmlReader 
mlReader لمعرفة المزید عن‎ XML وربط الناتج به لقراءته ۰ یمکنک الرجوع إلى دروس‎ 
Parameterized Command Objects استخدام ال‎ 


كما لاحظت من الدرس الذي تحدثنا فيه عن ال SQL Injection‏ « فان الطريقة التقليدية 
لجمل الاستعلام تظل خطرة ؛ لذا نبدا باستخدام Parameters‏ لجمل الاستعلام لدینا Lag‏ حتی لو 
لم نکن نتعامل مع Procedure‏ 9]0۲60. 


لو آخدنا المتال التالی للتحر به: 
string strSQL = "Select [First Name]+[Last Name] as [Full Name], Age From‏ 


Employee where ID=" + ID; 
5 01001۳1۳021210 myCommand = new SqlCommand(strSQL, cn); 


VB.NET 


Dim strSQL As String = "Select [First Name]+[Last Name] as [Full Name], 
From Employee where ID=" + ID 
Dim myCommand As New SqlCommand(strSQL, cn) 
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ستجد اننا قادرين بمبادئ ال SQL Injection‏ من اختراق هذا النظام بسهولة . لذا البديل يكون 


باستخدام وتعريف :SqiParameter‏ 


string sql = string.Format ("Select [First Name]+[Last Name] as [Full Name], Age 
From Employee where ID=@ID"),; 
using (SqlCommand cmd = new SqlCommand(sqgl, this.sglCn) ) 
i 
// Fill params collection. 
SqlParameter param = new SqlParameter(); 
param.ParameterName = "@ID"; 
param.Value = 10; 
param.SqlDbType = SqlDbType.Int; 
cmd.Parameters.Add (param); 
7 dso iac مكل بان الاستعلام‎ Lis 
cmd.ExecuteNonQuery )( ; 


VB.NET 


Dim sql As String = String.Format ("Select [First Name]+[Last Name] as [Full 
Name], Age From Employee where ID=@ID") 
Using cmd As New SqlCommand(sql, Me.sqlCn) 

" Fill parama collection. 
Dim param As New SqlParameter() 

param.ParameterName = ID" 

param.Value = 10 

param.SqlDbType = SqlDbType.Int 

cmd.Parameters.Add (param) 


۲ Sx si S dlas ا لاستعلام‎ gis des عقا‎ 
cmd.ExecuteNonQuery () 


End Using 
هنا كما لاحظت قمنا يتمرير یامیترات إلى جملة استعلام قمنا نحن يكتايتها ضمن البر نامج.‎ 





الحالة الثانية التی لدينا وهی الشائعة الاستخدام هی Atle‏ تعریف Stored‏ 
Procedure‏ 


لو افتر ضنا مثلا جملة الاستعلام التي أنشأناها في آول درس لنا بالشکل التالي: 
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ALTER PROCEDURE dbo.GetAge 
@condition. int, 


@firstname char(10) output 

AS 

SELECT @firstname=[First Name] from Employee_info where age > @condition 
WHERE age > @condition 





Lied g‏ بحفظها باسم Get Age‏ الآن نرید استدعاء‌ها من البرنامج » يتم ذلك بالشکل التالي مثلا 


using (SqlCommand cmd = new SqlCommand("GetAge", cn)) 
{ 
cmd.CommandType = CommandType.StoredProcedure; 
SqlParameter param = new SqlParameter(); 
param.ParameterName - "(icondition"; 
param.SqlDbType = SqlDbType.Int; 
param.Value = myAge; 
param.Direction - ParameterDirection.Input; 
cmd.Parameters.Add(param); 


param = new SqlParameter(); 
param.ParameterName = "(ifirstnameName"; 
param.SqlDbType = SqlDbType.Char; 

param.orze = 10; 

param.Direction - ParameterDirection.Output; 
cmd.Parameters.Add(param); 


cmo sxecureNonQuery(). 
MessegeBox,5how(omd,Parameters|"BIifsLName"].Value.To5tring ()); 
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VB.NET 


Using cmd As New SqlCommand("GetAge", cn) 
cmd.CommandType - CommandType.StoredProcedure 


Dim param As New SqlParameter() 
param.ParameterName = "@condition" 
param.SqlDbType = SqlDbType.Int 
param.Value = myAge 

param.Direction = ParameterDirection.Input 
cmd.Parameters.Add (param) 


param = New SqlParameter () 
param.ParameterName = "@firstnameName" 
param.SqlDbType = SqlDbType. [Char] 
param.Size = 10 

param.Direction = ParameterDirection.Output 
cmd.Parameters.Add (param) 


cmd. ExecuteNonQuery () 
MessageBox.Show(cmd.Parameters ("@firstName") .Value.ToString()) 
End Using 





كما لاحظت . قمنا بتعریف نوع ال Command‏ هنا نظرا OF‏ الافتراضي هو TEXT‏ ومن ثم قمنا 
بتعر یف متغیر الدخول ومتغیر الخروج آیضا. 


5 3. التعامل DataReaders ag‏ 
كما شاهدت في المثال السابق ۰ يمكن قراءة البیانات من DataReader‏ بالشکل التالي Mis‏ 


string listltem = ""; 
while (myDataReader.Read()) 
{ 
listItem = "Full Name: " + myDataReader["Full Name"].ToString() + " Age: 
+ myDataReader["Age"].ToString(); 
listBoxl.Items.Add(listItem); 
} 


VB.NET 


Dim listItem As String = "" 
While myDataReader.Read )( 
listItem = "Full Name: " + myDataReader ("Full Name") .ToString() + " Age: " 
+ myDataReader ("Age") .ToString() 
listBoxl.Items.Add(listItem) 
End While 
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حیث agai‏ الدالة Read‏ ب true‏ ما دام هناك سجلات للقراءة» 9 (S8‏ نفس الوقت مع کل استدعاء 
لها تنتقل إلى السجل التالي... 

طريقة القراءة تکون بتحدید الحقل المراد قراءته myDataReader["Age"]‏ او بتحدید 
رقمه في الترتیب Mis myDataReader[2]‏ 

الخاصية FieldCount‏ تعطینا suc‏ النتائج المعادة. لذا Lise:‏ تنفين نفس العملية السابقة 
بالشکل التالي: 


for (Int i ; 1 < myDataReader.FieldCount; i++) 


{ 


listItem = "Full Name: " + myDataReader["Full Name"].ToString() + " Age: 
+ myDataReader["Age"].ToString(); 

listBoxl.ltems.Add(listltem); 

myDataReader.Read(); 


VB.NET 


For i As Integer = 0 To myDataReader.FieldCount - 1 
listItem = "Full Name: " + myDataReader("Full Name").ToString() + " Age: " 
+ myDataReader ("Age") .ToString() 
listBoxl.lItems.Add(listItem) 
myDataReader.Read(í); 
Next 





: NextResult 


تمکنک ال DataReader‏ من تعریف Giles‏ استعلام لاعادة الناتج , فمثلا لاعادة اسماء 
المو ظفین تم اسماء المشاریع: 


string strSQL = "Select * From Employee info;Select * from projects"; 
SqlCommand myCommand = new SqliCommand(strSQL, cn); 
do 
{ 
while (myDataReader.Read()) 
{ 


for (int i = 0; i > myDataReader.FieldCount; itt) 


listItem "Data: " + myDataReader[0].ToString(); 
j 
) 


while (myDataReader.NextResult ()); 
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Dim strSQL As String = "Select * From Employee info;Select * from projects" 
Dim myCommand As New SqlCommand (strSQL, cn) 
Do 


While myDataReader.Read() 


For i As Integer = 0 To myDataReader.FieldCount - 1 
listItem = "Data: " + myDataReader (0) .ToString() 
Next 
End While 
Loop While myDataReader.NextResult () 





Data Access Layer .6‏ 
في التطبیقات الجدية » لا يتم وضع الکود مع المظهر مع سیناریو و عملیات البرنامج اضافة 
لطبقة البیانات. بل يتم فصل كل منها في طبقة منفصلة وهو ما یعرف باسم Layers‏ . لمعر àà‏ 

المزید عن هذا gall‏ ضوع یمکنک مراجعة الرابط التالي: 


S9 رابط‎ 


http://www.al-asiri.com/ShowRecord.aspx?Action=OpenGid=cefa426c-d9e0-4625-a66b- 





8/fd6082tf89 


و هناك تطبیق انضا E‏ : 


رابط هي 


http://vb4arab.com/vb/showthread.php?t=10969 
تکون خاصة بالتعامل مع قواعد البیانات لتحقیق‎ data layer سنحاول عمل‎ ۰ ala poll في هذه‎ 


: لكين ۱ شین‎ “t 
اعادة استخدامها اكثر من مرة.‎ - 


- في Atle‏ وجود خطأ يتم تحدید مصدره بسهولة ۰ وفي حالة التعدیل لا يتم التعدیل سوی على 


هذه الطبقهةه. 


وقي هذه الحالة لن يتطرق مبرمج اي جزء من البرنامج إلى كيفية الاتصال بقاعدة البيانات « 
co‏ ان كل ما لديه هي مجموعة من الدوال للاتصال والحدف والتعديل وكل العمليات التي 


يريدها مع بارميترات مناسبة دون التدخل فى كيفية الاتصال بقواعد البيانات تماما. 
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یمکنک عمل هذه الطبقه dias‏ طرق © ابسطها استخدام بعض البرامج الجاهرة التي تقوم بهده 
العملیه وتقوم بعمل استخراج oag‏ ال layer‏ حسب Aad‏ البرمجة التى تحددها c‏ ایضا بوقر لک 


الدوت نت طريقة لهده العملية c‏ الطريقة الثانية هي الطريقة الیدویة... 


فى العجالة التالية سنتعرف على متال سیط لهده العملیه من احل المو ظفین ۰ يمكن تطبیق نفس 
المفاهيم على البر TAN‏ الجدية JAY‏ 


1- عملیات فتح واغلاق قواعد البیانات 


private SqlConnection cn = new SqlConnection(); 
public void OpenConnection(string connectionString) 


Connectionstring = connectionString; 
.Open(); 


public void CloseConnection() 


{ 


Cn. Closet): 


} 


VB.NET 


Private cn As New SqlConnection() 

Public Sub OpenConnection (ByVal connectionString As String) 
com.Connmeotarionobring = ConnectionString 
cn.Open () 

End Sub 

Public Sub CloseConnection() 
cn.Close() 

End Sub 





2- سینار بو Arles‏ الحدف. 


فى هده العملية سنتيح للمستخدم حدف المو ظف یاسمه ( او حدف got)‏ ظف بر قمه « او 
حذف الموظف Sie‏ بدلالة العمر وبعدة اختيارات سواء اكبر او اقل او يساوي Mie‏ مع استخدام 


iog OverLoadinggi i-us‏ عمل Las! Enums‏ واللذان تم شرحهما في دروس سابقة. 


۴ لاحظ ان مهمتك في هذه Ale pall‏ هي عمل كل الدوال التي يمكن استخدامها في البر نامج 
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CH 





public void DeleteEmployee(int id) { 
string sql = string.Format("Delete from Employee where ID = {0}",1d); 
using (SqlCommand cmd = new SqlCommand(sqgl, this.sglCn) ) 
{ 
trvi 
cmd.ExecuteNonQuery(); 
) 
catch (SqlException ex) 4 
Exception error = new Exception("some error occures: ", ex); 
throw error; 


} 
} 


public void DeleteEmployee (string name) { 


string sql = string.Format ("Delete from Employee where [First Name] = 
"AUP = name); 
using (SqlCommand cmd = new SglCommand(sgl, this.sglCn) ) { 
cry { 


cmd.ExecuteNonQuery )( ; 

) 

catch (SqlException ex) { 
Exception error = new Exception("some error occures: ", ex); 
throw error; 


j 
} 


enum deletecondition{ 


morethan = O0, 
lessthan = 1, 
equal = 2 


} 


public void DeleteEmployee (int age, deletecondition delcondition) { 


String sql = wes 
if (delcondition == deletecondition.morethan) 
sql = string.Format ("Delete from Employee where age > {0}", age); 
else if (delcondition == deletecondition.lessthan) 
sql = string.Format ("Delete from Employee where age > {0}", age); 
else 
sql = string.Format ("Delete from Employee where age = {0}", age); 
using (SqlCommand cmd = new SglCommand(sgl, this.sglCn) ) 
{ 
LIV 
{ 
cmd.ExecuteNonQuery(); 
} 
catch (SqlException ex) 
{ 
Exception error = new Exception("some error occures: ", ex); 


throw error; 
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VB.NET کو د‎ 
Public Sub DeleteEmployee(ByVal id As Integer) 

Dim sql As String = String.Format("Delete from Employee where ID = 'í(0)J'", 
id) 


Using cmd As New SqlCommand (sql, Me.sqlCn) 
Iry 
cmd.ExecuteNonQuery () 
Catch ex As SqlException 


Dim [error] As New Exception("some error occures: ", ex) 
Throw [error] 
End Try 
End Using 
End Sub 
Public Sub DeleteEmployee(ByVal name As String) 
Dim sql As String = String.Format("Delete from Employee where [First Name] 


= '{O}'", name) 
Using cmd As New SqlCommand (sql, Me.sqlCn) 
LEY 
cmd. ExecuteNonQuery () 
Catch ex As SqlException 


Dim [error] As New Exception("some error occures: ", ex) 
Throw [error] 
End Try 
Eng Using 
Enda sub 
Enum deletecondition 
morethan = 0 
lessthan = 1 
equal = 2 


enda enum 


Public Sub DeleteEmployee(ByVal age As Integer, ByVal delcondition As 
deletecondition) 
Dim sql As String = "" 


If delcondition = deletecondition.morethan Then 

sql = String.Format ("Delete from Employee where age > {0}", age) 
ElseIf delcondition = deletecondition.lessthan Then 

sql = String.Format ("Delete from Employee where age > {0}", age) 
Else 

sql = String.Format ("Delete from Employee where age = {0}", age) 
End IE 
Using cmd As New SqlCommand(sql, Me.sqlCn) 

LEY 


cmd.ExecuteNonQuery() 
Catch ex As SqlException 


Dim [error] As New Exception("some error occures: ", ex) 
lhrow [error] 
End Try 
End Using 


End Sub 
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3- سیناریو عملیات الاضافة و التعدیل 


بنفس الطريقة يمكن التعدیل بعدة خيارات او الاضافه bras‏ طرق. 
بالنسبة لعملية الاضافة سنجبره على ادخال الاسم الأول والأخير فقط. 
و التعدیل ينبغي آیضا أن یکون بنفس الصورة › و لکن منعا للاطالة سنعدل بدلالة الرقم الاسم الأول 


نقط. 


public void InsertEmployee(string fname, string lname, int age) 


{ 
// Format and execute SQL statement. 
string sql = string.Format ("Insert Into Employee info" + 
"([First Name], [Last Name]) Values" + 
"10" ع‎ 74157)", fname, lame); 
using (SqlCommand cmd = new SqlCommand(sqgl, this.sglCn) ) 
| 
cmd.ExecuteNonQuery(); 
} 
) 
public void UpdateEmployee(int id, string newFirstName) 1 


string sql = string.Format ("Update Employee Set [First Name] = '{0}' Where 
ID = ER ابد‎ 


newFirstName, id); 


using (SqlCommand cmd = new SqlCommand(sql, this.sqlCn)) 1 
cmd.ExecuteNonQuery(); 


} 


VB.NET 


Public Sub InsertEmployee (ByVal fname As String, ByVal lname As String, ByVal 
age As Integer) 


۲ Format and execute SQL statement. 


Dim sql As String = String.Format("Insert Into Employee info" + "([First 
Name], [Last Name]) Values" + "('{O}', '{1}')", fname, lname) 


Using cmd As New SqlCommand(sql, Me.sqlCn) 
cmd.ExecuteNonQuery () 
End Using 
End Sub 


Public Sub UpdateEmployee(ByVal id As Integer, ByVal newFirstName As String) 
Dim sql As String = String.Format("Update Employee Set [First Name] = '{0}' 
Where ID = '{1}'", newFirstName, id) 
Using cmd As New SqlCommand(sql, Me.sqlCn) 
cmd.ExecuteNonQuery() 
End Using 
End Sub 
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bow -4‏ بو عملیات البحث. 


قبل البدء في سیناریو عملية البحث . نود أن نشیر ان الدوال السابقة ینقصها شيء هام و هي 
عملية ال Parameters‏ لتلافي المشاکل الناتجة عن Sql Injections!‏ لكن كانت الامثلة السابقة 
gill‏ ضیح فقط » في عملية البحث OF!‏ سنطبق ما تعلمناه لحل هذه المشکلة. 
سنجرب عملية Coma‏ واحدة عن الاسم الأول والآخير للأشخاص برقم ID‏ معین . لا تنسی أنكت 
مطالب في Joa: Data Layer‏ كل الطلبات التي قد يحتاجها مبرمج عمليات البرنامج لكي لا یحتاج 
لكتابة حتى ales‏ استعلام واحدة. 


سنقوم او لا بعمل Stored Procedure‏ 


CREATE PROCEDURE GetFirstNameByID 
Gid int; 


@fName char (10) output 
AS 
SELECT @fName=[First Name] FROM Employee info WHERE ID > @id 





ومن ثم نقوم نعرف الدالة الخاصة بعملية البحث بالشکل التالی: 


public string SelectName(int id) 
{ 
using (SqlCommand cmd = new SqlCommand("GetFirstNameByID", cn) ) 
{ 
cmd.CommandType = CommandType.StoredProcedure; 
SqlParameter param = new SqlParameter (); 
param.ParameterName = ۶ 
param.SqlDbType = SqlDbType.Int; 
param.Value - ID; 
param.Direction = ParameterDirection.Input; 
cmd.Parameters.Add (param); 
param = new SqlParameter(); 
param.ParameterName = "@fName"; 
param.SqlDbType = SqlDbType.Char; 
param.Size = 10; 
param.Direction = ParameterDirection.Output; 
cmd.Parameters.Add (param) ; 
cmd.ExecuteNonQuery(); 
return cmd.Parameters["(fName"].Value.ToString(); 
1 


return carPetName; 
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VB.NET 


Public Sub InsertEmployee(ByVal fname As String, ByVal lname As String, ByVal 
age As Integer) 

" Pormat and execute SOL Statemenb, 

Dim sql As String = String.Format("Insert Into Employee info" + "([First 
Name], [Last Name]) Values" + "('{O}', '{1}')", fname, lname) 


Using cmd As New SqlCommand (sql, Me.sqlCn) 
cmd.ExecuteNonQuery () 
End Using 
End Sub 


Public Sub UpdateEmployee (ByVal id As Integer, ByVal newFirstName As String) 


Dim sql As String = String.Format ("Update Employee Set [First Name] = '{0}' 
Where ID = '{1}'", newFirstName, id) 
Using cmd As New SqlCommand (sql, Me.sqlCn) 
cmd.ExecuteNonQuery () 
End Using 
End Sub 


- لا Lio‏ یمکنک فصل ال Datalayer‏ حتی في dil‏ منفصلة لضمان تشغیلها مع اكثر من تطبیق 
في الاستخدام Là» Y‏ وعلی افتراض ان الفئة Class‏ لطبقة البیانات Datalayer‏ تحمل الاسم 


۲ و لتطبيق عملية مثل الحذف كل المطلوب منک هو سطرین مثل الآتي: 





ی 


myDataLayer example-new myDataLayer(); 
example.OpenConnection (myconnectionstring) ; 
example.DeleteEmployee (10); 
example.DeleteEmployee ("Ahmed"); 


VB.NET 


Dim example As New myDataLayer () 
example.OpenConnection (myconnectionstring) 
example.DeleteEmployee (10) 
example.DeleteEmployee ("Ahmed") 





و فقط !۲ 

وینفس النظام لو كانت dll‏ قم باستیرادها فى بر نامجک ثم قم باستخدامها بنفس الطر Aas‏ 

لو لاحظت . بهده الطر Ads‏ اصبح المبر مج لسیناریو البرنامج و لباقي عملیانه بعيدا کل البعد عن 
قواعد البیانات ۰ كما ان تقسیم العمل آصبح آوضح ويالتالي اصبح بالامکان تدار ك المشاکل 


بصورة آو ضح. 
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Asynchronous Data Access 7 


فى هذه الجزئية سنحاول تعلم طريقة تمنعنا من عمل duc‏ عملیات على قواعد البیانات فى 
نفس الوقت لمنع التضارب © ومع ان المشکله سئواجهنا بصورة اكبر في الوضع المنفصل 
Disconnected‏ والذي هو موضو e‏ درسنا القادم . إلا اننا سنجرب الحل في هذه العجالة السريعة › 


جرب المثال التالي: 


SqlConnection cn = new SqlConnection(); 

cn.ConnectionString = @"Data Source=(local) \SQLEXPRESS; Integrated 
Security=SSPI;" + 

"Initial Catalog-AutoLot;Asynchronous Processing=true"; 
cn.Open(t); 


VB.NET 


Dim cn As New SqlConnection () 

cn.ConnectionString = "Data Source=(local) \SQLEXPRESS; Integrated 
Security=SSPI;" + "Initial Catalog=AutoLot;Asynchronous Processing=true" 
Gn. Open ١ 





آول خطوءة قمنا بها هي تعریف الوضع Asynchronous Processing = true‏ في ال 
ConnectioString‏ يهذه الطر 44s‏ اصبحنا قادرین على الاستفادة من الدو ال التالية: 
BeginExecuteReader()‏ و EndExecuteReader()‏ 


EndExecuteNonQuery() و‎ BeginExecuteNonQuery () 
EndExecuteXmlReader() و‎ BeginExecuteXmlReader() 
وسنيداً يتأخير‎ EndExecuteReader و‎ BeginExecuteReader على‎ OY! o x 


جملة الاستعلام ol gil‏ لخمس توان مثلا: 


string strSQL = "WaitFor Delay '00:00:05';Select * From Employee info"; 
SqlCommand myCommand = new SqlCommand(strSQL, cn); 


Dim strSQL As String = "WaitFor Delay '00:00:05';Select * From Employee info" 
Dim myCommand As New SqlCommand(strSQL, cn) 
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IAsyncResult itfAsynch; 
itfAsynch = myCommand.BeginExecuteReader (CommandBehavior.CloseConnection); 


VB.NET 


Dim itfAsynch As IAsyncResult 
itfAsynch = myCommand.BeginExecuteReader (CommandBehavior.CloseConnection) 


while (litfAsynch.IsCompleted) 

{ 
. متلا موشر dort‏ تغییر // 
System.Threading.Thread.Sleep(1000);‏ 


VB.NET 


While Not itfAsynch.IsCompleted 
Thread.Sleep(1000) 
End While 





الآن يما آننا خرجنا من ال LOOP‏ السابقه فهدا يعني انتهاء التنفيد الاو «J‏ الآن سنقوم يتنفين 


العملیه التي نريدها. 


SqlDataReader myDataReader = myCommand.EndExecuteReader (itfAsynch) ; 
while (myDataReader.Read()) 
{ 

MessageBox. Show (myDataReader[1].ToString()); 


j 
myDataReader.Close(); 


VB.NET 


Dim myDataReader As SqlDataReader = myCommand.EndExecuteReader (itfAsynch) 
While myDataReader.Read() 
MessageBox. Show (myDataReader(0).ToString()) 
End While 
myDataReader.Close() 
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Transactions 8‏ 
تعر یف هذه العملية باختصار شدید هو و جود de gems‏ من العملیات لا بد أن تتم سوية أو 
تتوقف سوية , المنال الأشهر لهذه العملية هي عملیات التحویل البنكية من عميل1 إلى عميل2. 
لذا خطوات العمل في قواعد البيانات لا يد أن تكون بالشكل التالي: 
- سحب 500 دولار من حساب عميل 1. 
- ايداع 500 دولار فى حساب عميل 2. 
وهاتان العمليتان لابد ان تتم سوية » بمعنى لو تمت العملية الأولى ولم تتم العملية الثانية لانقطاع 
الاتصال Mio‏ فهذا غير مقبول ‏ لذا لا بد ان يتم اعتماد العمليتين أو حذف اي عملية منهم تتم دون 


إذا قمنا بعمل transaction‏ سيتم تعريف هذه المجموعة من العمليات فى نظام قاعدة البيانات 
5 على شكل وحدة واحدة بحيث يتم تنفيذها سوية او عدم تنفيذها سوية. 
الفتة المسؤولة عن هذه العملية هی الفئة Transaction‏ 5)1 الموجودة ضمن مجال الأسماء 


.System.Data.SqlClient‏ هناك فتات أخرى Wises‏ تطبيق هذه العملية ضمن مجال 
آسماء R .het‏ مثل: 


:System.EnterpriseServices‏ تتیح لنا هذه الفثة الاتصال مع مکونات COM+‏ التي 
تقدم UJ‏ الدعم في هذه العملية. 
System.Transactions‏ : تتیح لنا هذه Aiat‏ بناء تطبیقات تدعم transactions)!‏ 
WCF‏ و WWF‏ : تمکننا هاتان الفئتان من تطبیق مبادئ ال transaction‏ ایضا. 
حتی في نظم قواعد البیانات یمکنک القيام بهذه المهمة عن طریق تعر Stored Procedureca;‏ 
یقوم transactions Joss‏ عن طریق ROLLBACK, TRANSACTION‏ و COMMIT‏ « یمکنک البدء 


في هذا gl‏ ¢ من هنا 
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رابط گي 


http://msdn.microsoft.com/en-us/library/ ms187844.aspx 
والدي‎ IDbTransaction التي تطبق الواجهة‎ DBTransaction aian لدينا‎ ADO.net في‎ 


يحتوي على الدوال الرئيسية التالیة: 


public interface IDbTransaction : IDisposable 


{ 


IDbConnection Connection { get; } 
IsolationLevel IsolationLevel { get; } 
vola commit ()s 

void Rollback (); 


Public Interface IDbTransaction 
Inherits IDisposable 
ReadOnly Property Connection() As IDbConnection 
ReadOnly Property IsolationLevel() As IsolationLevel 
Sub Commit () 
Sub Rollback () 

End Interface 





یضیف Ut‏ ال ata SGI Transaction‏ جديدة هي SAVE‏ والتي تتیح LJ‏ حفظ نقطة يتم 
الر جو ع Led]‏ في حالة الفشل في اتمام العملية بدل الر جوع في العملية بالکامل - لو كان هناك 
اجزاء من العملية أو العملية على مراحل. 

ابسط مثال على تطبیق هذه العملية ۰ هو افتراض و جود جدول يحتوي على ( اسم العمیل - المبلغ 
المودع ) وعندما نقوم بعملية تحویل من حساب إلى آخر نقوم بعملية بالشکل التالي: 


SqlCommand cmdGet = new SqlCommand ("update customers set total-total-" + 
Ltotalmoney.loString() + " where ID" + custlID.IoString(), cen); 


cmdSelect.ExecuteNonQuery(); 

SqlCommand cmdSet = new SqlCommand ("update customers set total=totalt+" + 
totalmoney.lo5tring(i) + T where ID" +. SupplD.loStringq(), On); 
cmdSelect.ExecuteNonQuery(); 
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VB.NET 


Dim cmdGet As New SqlCommand("update customers set total=total-" + 
tovalmoney.Tostring () + " where ID" + custID.ToString(); Cn) 
cmdSelect .ExecuteNonQuery () 


Dim cmdSet As New SgqlCommand ("update customers set total=totalt+" + 
totalmoney.ToStrang() + " where ID" + SupplD.Tostring(), cn) 
cmdSelect.ExecuteNonQuery () 





في هذه العملية و $3( سبب كان قد یتوقف الجزء الثاني من العملية ۰ لذا سنحاول اخبار نظام 
قاعدة البیانات Lol‏ سننفد كلا العملیتین فى نفس الوقت . و لو لم يتم تنفين واحدة Logie‏ سیتم 


SqlCommand cmdGet - new SqlCommand("update customers set total-total-" + 
totalmoney.TloString() + " where ID" + custlID.IoString(), on); 
SqlCommand cmdSet = new SqlCommand ("update customers set total=total+" + 
totalmoney.To5trinungi) + " where ID" + SupplD.Tostring(), on); 
oglTransaücbtion sgltr = null; 
LIV 
{ 

sqltr = soqlCn.. Beginiransacction() ; 

cemdGet.Transaction = sqitr; 

cmdSet.Transaction = sqltr; 

cmdGet.ExecuteNonQuery(); 

cmdSet.ExecuteNonQuery(); 

if (throwEx) 

{ 


throw new ApplicationException("all operation canceld, some errors 
occures"); 


) 
هی‎ ۱۱۱ COMMA, 


catch (Exception ex) 

{ 
MessageBox. Show (ex.Message) ; 
tx. Rollback () + 
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VB.NET 


Dim cmdGet As New SqlCommand ("update customers set total-total-" + 
Ltortalmoney.ToStruingi() + * where ID" 4.custID,.ToString( , cn) 
Dim cmdSet As New SqlCommand ("update customers set total=total+" + 
totalmoney.lo5tring() T " where ID" + SupplD.lIoString(), cn) 
Dim sgltr As SqlTransaction = Nothing 
IIY 

sqltr = sqlCn.BeginTransaction() 


cmdGet.Transaction = sqltr 
cmdSet. Transaction sqitr 


cmdGet.ExecuteNonQuery () 
cmdSet.ExecuteNonQuery () 
If throwEx Then 
Ihrow New ApplicationException("all operation canceld, some errors 
occures") 
End If 
sgltr:Commit{) 

Catch ex As Exception 
MessageBox. Show (ex.Message) 
tx ROL back () 

End Ir 


كما لاحظت € نقوم ببدء عملية ال transaction‏ وما لم يحدث أي خطأ فلن ندخل فى الشر de‏ 





ولذا سيتم ننفید aa Commit Ata‏ العمليتين واعتمادهما . Loi‏ فى حاله حدوث اي خطأ 
فسنقوم برمي throw Exception‏ والدي ينقلنا مباشرة إلى Catch‏ لنقوم هناك باستدعاء 


Rollback una‏ من اجل الغاء جمیع التأثيرات QAM‏ حدثت. 


لو كنت تود تجرية هذا المثال لمعرفة كيفية حدوثة « جرب جعل throwEx-trueas4à‏ 
وجرب ما يحدث. 

لو جربت مثالك OY!‏ ستجد ان قيمة مبلغ العميل 1 مثلا لم تتأثر Leis‏ في All»‏ عدم وجود خطأ 
في الجملة الثانية فستجد ان الكمية المحددة من المبلغ قد تم نقلها من عميل 1 إلى عميل 2. 
**طبعا في تطبيقاتك الجدية لن يكون نظام الايداع والصرف بهذا الشكل « بل في العادة سيكون 


هناك جدول او AS‏ من جدول يحتوي على العمليات المجراه لكل عميل من ايداع وصرف وسحب 
و خلافه. 
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9 . الوضع المنفصل 


في دروسنا السابقة اقتصر حديثنا في تقنية ADO.net‏ عن الوضع المتصل Connected layer‏ وهو 
الذي ينشأ رابطة مباشرة بينك وبين قاعدة البيانات بحيث توثر جميع تعدیلاتک فيها لحظیا › 
الجزء الثاني الذي تقدمه لنا هذه التقنية هي امكانية تطبيق الوضع المنفصل disconnected layer‏ 
والذي يسمح لك بالتعامل مع قاعدة البيانات في الذاكرة عن طريق مجموعة من الفئات ومن ثم 
نقل كافة التعدیلات مرة واحدة إلى قاعدة البيانات. 


يتم ذلك عن طريق عمل DataAdapter‏ يكون وسيط بين قاعدة البيانات وبين البرنامج » ومن ثم 


انشاء Dataset‏ يتم العمل عليها ثم ارسالها مرة أخرى إلى قاعدة البيانات. 


تحتوي ال DataSet‏ على أي sae‏ من DataTable‏ تحتوي على كائنات DataRow‏ 


و 200111101 ۵1 (1. 


بقي ان نذكر Ob‏ هذا الوضع Y‏ یلزم فيه اي نوع من الاتصال مع قاعدة بیانات » فال DataSet‏ 
هی نفسها قاعدءة بیانات لذا سنواصل درو سنا فى البداية دون اي اتصال بقاعدة بیانات فعلية ثم نعود 


الیها مرة آخری في نهاية هذا القسم . 
8 1. ال DataSet‏ 


باختصار شدید ال Dataset‏ هی عبارة عن صور ó‏ لنظام قو اعد بیانات و لکن فى الذاكرة - موقت 


- » المحتویات الأساسية لهده AXAM‏ هی : 


الفئات الأساسية : 
DataTableCollection‏ : الجداول فى هذه القاعدة. 
0ه 1 601 1 0۳0/01 1 21 2۳61 1731 : العلاقات بين الجداو ل المختلفة. 


DataSet لاضافة خصائص إلى ال‎ : PropertyCollection 
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الخصائص الأساسية: 
DatasetName‏ : الاسم. 


binary jis. للمحتويات‎ serialize تحدید الطريقة التى يتم بها عمل‎ : RemotingFormat 


او XML‏ او غير ه. 
الدو ال الأساسية: 


AcceptChanges )(‏ : تطبیق التغييرات التي تمت على ال Dataset‏ مند آخر مرة تم عمل 


Accept Changes‏ لها إلى قاعدة البیانات. 


RejectChanges()‏ : الغاء جميع التعدیلات التي تمت على ال DataSet‏ منذ آخر مرة تم 
عمل AcceptChanges‏ لها. 


DataSet, Gh gins مسح كافة‎ : Clear() 
فيها الجداو ل والعلاقات‎ Les لقاعدة البیانات‎ Structure الهیکل‎ cas : Clone() 
نسخ الهیکل اضافة إلى جميع البیانات.‎ : Copy )( 


Get Changes )(‏ : معرفة كافة التغییرات التى حدثت لقاعدءة البیانات منن آخر مرة تم عمل 


AcceptChanges‏ لها. 


Boolean 444 : HasChanges ()‏ تحدید قیما اذا كانت هناك تغييرات قد تمت منن آخر 


مرءة تم عمل AcceptChanges‏ ام لا. 

DataSet sae ges : Merge )( 

DataSet من ال‎ XML Js القراء2 على‎ a الكتاية‎ : WriteXml() و‎ ReadXml () 
: Dataset انشاء‎ 


يمكنت انشاء Dataset‏ عن طریق الکود بایسط طر بقه بالشکل التالی: 
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CH 


DataSet empDataSet - new DataSet("My Employee"); 


VB.NET 


Dim empDataSet as DataSet = New DataSet ("My Employee") 





أو يمكنت انشاء‌ها عن طریق آدوات «Det‏ من 46418 الأدوات DataSet a Data‏ قم بسحبها 


Toolbox 

= All Windows Forms 
lk Pointer 

EF BackgroundWorker 
























42 BindingMavigator 

UM BindingSource 

GÈ) Button 

[*] CheckBox 

ES CheckedlistBos 

= ColorDialog Choose a typed or untyped dataset to add to the designer. 

E Combobox 

i | Typed dataset 

€ ContextMenuStrip Ame 

(gl. DataGridView Name: 
Creates an instance of a typed dataset class already in your project. Choose this option to work 
T DateTimePicker with a dataset that has a built-in schema. See Help for details on generating typed datasets, 
[53] DirecteryEntry © Untyped dataset 

MA. DitectoesSenecher M Creates an instance of an untyped dataset class of type System.Data.DataSet. Choose this option 


3j» Toolbox [B Server Expl. ۱ F Data Sources | ۱ ۱ when you want a dataset with no schema. 
fmolit ا‎ © ً ً ًْ۵۰۵۰ 
QOEmors| قحل‎ Warnings Li) 


Description 


كعمد 





الصورة 17. 11. اضافة DataSet‏ من نافدة الأدوات. 


9 2. التعامل هع DataTable‏ 


الجدول هو العنصر الاساسي والذي سيحتوي لاحقا على صفوف وأعمدة © الخصائص 


والعناصر الأساسية له هي: 
Copy ()‏ : نسخ هيكل الجدول. 


Tabled! الذي يحتوي على هذا‎ DataSet: DataSet 
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PrimaryKey‏ : ال PrimaryKey‏ لهذا الجدو ل. 
6 1 21 1 : اسم الجدو ل. 


. d العلاقات التي يتحويها هذا الجدو‎ : ParentRelations 


انساء ال DataTable‏ 





Ci | 


DataTable EmployeeTable - new DataTable(); 
EmployeeTable.PrimaryKey = new DataColumn[] { EmployeeTable.Columns[0] 7 


VB.NET ۱ 


Dim EmployeeTable As New DataTable )( 
EmployeeTable.PrimaryKey = New DataColumn() {EmployeeTable.Columns (0) } 


: DataSet إلى‎ DataTable Lai 








ڪو د | CH‏ 
۳ 


empDataSet.Tables.Add(EmployeeTable 





VB.NET eee 





empDataSet.Tables.Add(EmployeeTable) 


DataColumn gg التعامل‎ .9 


تمثل هذه aJ‏ عمود واحد في قاعدة البیانات (Q9.‏ آخر de gems ola‏ من ال 
5 تشکل DataTable‏ يحتوي على هیکل قاعدة البیانات . المکونات الأساسية لهذه 


: هي‎ aa! 
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تتيح لک هذه الخصائص GM)‏ عمل خاصيه ترقيم تلقاتي كما 


او ضحناها فى بداية دورسنا عن SQL Server‏ » وتستخدم لتحديد 


الخاصية وتحديد نقطة البداية ومقدار الزيادة مع كل مرة على 


الترتيب 


نوع البيانات 


تحدید ال DataTable‏ الذي يتبع له هذا العمود 





الجدول 17. 4. بعض خصائص .DataColumn arati‏ 


:DataColumns انشاء‎ 


لنفترض انشاء قاعدة بيانات تحتوي على الرقم الذي هو مفتاح رئيسي وايضا ترقيم تلقائي 
Lei‏ الاسم والعمر قهما Y‏ یحتویان على أي قيم مميزة ۰ سیکون هذا هو 5 Mi a y‏ 
الحدو ل: 


DataColumn EmpIDColumn = new DataColumn("ID", typeof(int)); 
EmplIDColumn.Caption = "Employee ID"; 

EmpIDColumn.ReadOnly - true; 

EmpIDColumn.AllowDBNull = false; 

EmpIDColumn.AutoIncrement - true; 


EmplIDColumn.AutoIncrementSeed = 1; 

EmpIDColumn.AutoIncrementStep = 1; 

EmplDColumn.Unique = true; 

DataColumn EmpNameColumn = new DataColumn("Name", typeof(string)); 
EmpNameColumn.Caption = "Employee Name"; 

DataColumn EmpAgeColumn = new DataColumn("Age", typeof(int)); 
EmpNameColumn.Caption = "Employee Age"; 
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VB.NET 


Dim EmplIDColumn As New DataColumn("ID", GetType(Integer)) 
EmpIDColumn.Caption = "Employee ID" 

EmpIDColumn. [ReadOnly] = True 

EmpIDColumn.AllowDBNull = False 
EmplIDColumn.;Autolncerement = True 


EmplIDColumn.AutoIncrementSeed = 1 
EmplDColumn.AutolncrementStep 1 

EmplIDColumn.Unique = True 

Dim EmpNameColumn As New DataColumn("Name", GetType (String) ) 
EmpNameColumn.Caption = "Employee Name" 

Dim EmpAgeColumn As New DataColumn("Age", GetType (Integer) ) 
EmpNameColumn.Caption = "Employee Age" 


ومن ثم نضیفها إلى ال DataTable‏ بالشکل التالي: 





CH | كود‎ 
EmployeeTable.Columns.AddRange (new DataColumn[] { EmpIDColumn, EmpNameColumn, 
EmpAgeColumn }); 


VB.NET re 


EmployeeTable.Columns.AddRange (New DataColumn() {EmpIDColumn, EmpNameColumn, 
EmpAgeColumn]) 





DataRow ag النعامل‎ 5.9 


تختص هذه الفئة بالتعامل مع الصفوف . المکونات الرئيسية لهذه ALAN‏ هی: 


الجدول الذي يحتوي على هذا الصف 


الغاء التخييرات التي تمت على هذا الصف مند آخر مرة تم استدعاء 


AcceptChanges() 
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انهاء عملية التعدیل و حفظ التعد بلات 


AcceptChanges() هذا الصف عند استدعاء‎ can 


حالة الصف والتي یمکن قراءنها من ال enum‏ المسمی 
DataRowState‏ 





الجدول 17. 5. بعض خصائص .DataROW iatl‏ 


والذي يحتوي — 131310775131 - على القيم التالية: 


Browse: All Components * owl = =æ | 22 L3 bi 


DataRowState - Ed "X Em 
نت وت‎ —sif Detached 


- a Modified 
HF Unchanged 











الصورة 17. 12. ال DataRowState enum‏ 
Data ROWS «lil‏ 
M‏ يمكن انشاء DATAROW‏ مباشرة » مثل هذا السطر سوف ينشأ خطأ: 


ڪو د | CH‏ 





DataRow r = new DataRow(); 
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VB.NET 


Dim r As DataRow = new DataRow(); 


لکن aa M‏ من انشاء DATAROW‏ من نسخه من الجدول ۰ هذا المثال لانشاء نسخة من DataHROW‏ 


ووضع aid‏ بعض الصفوف فیها حسب الجدول الذي قمنا بعمله في البدایه. 





DataRow EmpRow = EmployeeTable.NewRow(); 
EmpRow["Name"] = "Ahmed Gamal"; 
EmpRow["Age"] = 22; 
EmployeeTable.Rows.Add(EmpRow) ; 

EmpRow = EmployeeTable.NewRow(); 
EmpRow[1] = "Ahmed Essawy"; 

EmpRow[2] = 23; 

EmployeeTable.Rows.Add (EmpRow); 


VB.NET 


Dim EmpRow As DataRow - EmployeeTable.NewRow() 
EmpRow("Name") = "Ahmed Gamal" 

EmpRow ("Age") = 22 
EmployeeTable.Rows.Add (EmpRow) 

EmpRow = EmployeeTable.NewRow() 

EmpRow(1) = "Ahmed Essawy" 

EmpRow(2) = 23 

EmployeeTable.Rows.Add (EmpRow) 


لو cda» Y‏ اننا لم نضع الحقل ID‏ نظراً لانه ترقیم تلقائي ۰ كما ان الحالة الأولى فیها الوصول 
للحقول بالاسم اما الثانية فبرقم ال Index‏ 
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- مثال شامل: معرفة كل الجداول في قاعدة البيانات DataSet‏ ومعرفة 


الصفوف والأعمدة: 


TextCl: Iert = mi; 
foreach (DataTable dt in empDataSet.Tables) 
{ 
Textl.Text t= dt.TableName + "s:XnVXr"; 
for (int curcol = Qs curcol < dt.cColummus.Count; CUrCOols4) 
{ 
1 6261 تاو‎ += (CurCol + 1) <Tostring<) + ce.«Columns | curCol].ColLumniName + 
ria ie 
) 
lextl.lext = "Bowst Vn ve": 
for (int curRow = 0; curRow < dti.RBows.Count; curRowt+) 
{ 
ror TINE cür ol OF. cür Col < dt.Columns.Coumnt; ل‎ 


{ 


Textl.Text += dt.Rows[curRow][curCol].ToString() 


VB.NET 


Textl.Text = "" 
For Each dt As DataTable In empDataSet.Tables 
Textl.Text += dt.TableName + ":" & Chr(10) & "" & Chr(13) & "" 
For curCol As Integer = 0 To dt.Columns.Count = 1 
Iextl,lext += (curcol + l).IoStringi) + dti.Colaumns(curCol).ColumnName + 
"T E GONE d ce. ای ات‎ d w^ 
Next 
Textl.Text = “Rows: " © Chr(10) & "" & Chr(l3) & W"" 
For curRow As Integer = 0 To dt.Rows.Count - 1 
For curCol As Integer - 0 To dt.Columns.Count - 1 
IextlText t= dc.Rows (CurRow) (CurCol) .ToString() + 
Next 
Next 
Next 
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9 . استخدام DataTableReader‏ لقراءة البینات من 
DataTable‏ 


Textl.Text = ""; 
DataTableReader dtReader = dt.CreateDataReader(); 
while (dtReader.Read()) 
{ 
for (Gnr i = 02 01 =<. dtbeader.RreldCount; Ju) 
{ 
Textl.Text += dtReader.GetValue(i).ToString(); 
} 


VB.NET 


Textl.Text = "m 
Dim dtReader As DataTableReader = dt.CreateDataReader() 
While dtReader.Read() 
For i As Integer = 0 To dtReader.FieldCount - 1 
Textl.Text += dtReader.GetValue(i).ToString() 
Next 
End While 


CH 


EmpDataSet.WriteXml("Employee.xml"); 


VB.NET 


EmpDataset.Writexml("REmploy&e,sxml") 


CH 


EmpDataSet. Readxml ("Emp lovee. xml”); 
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VB.NET 


EmpDataSet.ReadXml ("Employee.xml") 





سیکون ناتج الملف Employee.xml‏ بهذا الشکل تقریبا: 


<?xml version="1.0" standalone="yes"?> 
<Employee_XML> 
<Employee> 
<ID>1</ID> 
<Name>Ahmed Gamal</Name> 
<Age>22</Age> 
</Employee> 
<Employee> 
<ID>2</ID> 
<Name>Ahmed Essawy</Name> 
<Age>23</Age> 
</Employee> 
</Employee_XML> 





استخدام ال DataGrid‏ 


في مشروعنا الذي قمنا بانشاءه سابقا ووضعنا فيه جدول الموظفین ۰ کل ما علیک هو سحب Blal‏ 


DataGridView‏ من ضمن gol! Gl gad!‏ جودة بالشکل التالي: 








i Formi Ferrer] 
Choose Data Source [imon 1 - 
۲-۱۱7 
Add Column... 
[V] Enable Adding 
| [4] Enable Editing 

E| Enable Column Reordering 





| Dock in parent container 


الصورة 17. 13. اضافة الأداة DataGridView‏ 
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كل ما Linke‏ هو ربط قاعدة البیانات بالمصدر عن طریق Choose DataSource‏ « قم باختیار 
اضافة New DataSource‏ ۰ وقم بتتبع المعالج ۰ اضافة DataBase‏ ومن ثم نقوم باختیار قاعدة 


البیانات الخاصة بنا. 


*** فى العادة Nas‏ من ابحث عن ال ConnectionString‏ اقوم بعمل DataSource‏ و استعرض ال 


ConnectionString‏ ثم اقوم بالغائها2 


بعد انتهاء الشاشة الخاصة باختیار الداتا سورس ۰ تظهر لک شاشة تخبرك باختیار الجدول أو 
alee‏ الاستعلام التي تود لها أن تظهر في الجدول ۰ سنجرب اختیار جدول مباشرة وهو جدول 
المو ظفین € و في مثال لاحق سنحرب اختیار Alem‏ استعلام. 


سیکون الناتج Lind‏ مثل هذا: 





الصووة 17. 14. اضافة الأداة DataGridView‏ و تعیین juas‏ البیانات .Data Source‏ 


با لطیع يمكنت Lal AL‏ صه للتعدیل والاضافقه من الجدول. 
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الباب السابع عشر 


الآن سنجرب تعدیل بسيط جدا » سنطبق شرط للبحث بحیث لا يتم عرض البیانات سوی التي لها 
الاسم الأول — الأسم الأول المو 392 في مربع نص 6 من ال Add Query get dataGrid‏ ومن ثم 
اکتب جملة استعلام كالتالي: 








Search Criteria Builder T 


Choose an existing query or enter a new query below. A ToolStrip will be added to the form 
to run the query. To edit an existing query or use stored procedures use the Configure 
command on the TableAdapter in the DataSet Designer. 


Select data source table: 


EmployeeDataSet.Employee — 


Select a parameterized query to load data: 
© New query name: FillBy2 
` Basting query name: 


Query Text: 
SELECT id, [First Mame], Age FROM dbo.Employee where [First Name]- ®@Search| 


i 


Sample SELECT ColumnNamel, Columnhiame2 FROM TableName 
WHERE ColumnNamel = @ParameterName 








Query Builder... | 


| 


الصورة 17. 15 . آضافة شروط على GUL‏ المعرو ضة. 


ستلاحظ ظهور شاشة فى الأعلى بالشکل التالی ۰ جرب كتابة الاسم حتی النهاية و شاهد النتائج: 
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Do Search 








الصورة 17. 16. نتائج pall‏ ض. 


12 استخدام ال DataAdapter‏ 


ببساطة شديدة» قم بتعريف 61 1۱3۲206101 كما تعلمنا سايق : 


string connectionString = @"Data Source-AHMED-PCNSQLEXPRESS;Initial 
Catalog-Employee;Integrated Security-True;Pooling-False"; 

DataSet ds = new DataSet ("Employee"); 

SqlDataAdapter dAdapt = new SqlDataAdapter("Select * From Employee info", 
connectionString); 

dAdapt.Fill(ds, "Employee info"); 


VB.NET 


Dim connectionString As String = "Data Source=AHMED-PC\SQLEXPRESS; Initial 
Catalog-Employee;Integrated Security-True;Pooling-False" 

Dim ds As New DataSet("Employee") 

Dim dAdapt As New SqlDataAdapter("Select * From Employee info", 
connectionstring) 

dAdapt.Fill(ds, "Employee info") 
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LINQ 


LINQ puec الباب الثامن‎ 


سنعود مرة آخری مع LINQ‏ هذه المرة سنهتم بتعاملها مع قواعد البیانات المختلفة . 


بعد ان تعرفنا على بعض النقاط في عالم ele ADO.Net‏ الدور لنتعرف على تقنية 
Language Integrated Query‏ او Le‏ يعرف ELE‏ باسم LINQ‏ وهي تقنية جدیدة من 
مایکر 9 سوفت تهدف كما اسلفنا في درس سایق إلى بناء اسنعلامات قویه يمكن التحكم فيها من 
خلال بيثة قیجوال ستودیو . اضف إلى ذلك توحيد Alem‏ الاستعلام مهما تكن )9 Arc‏ مصدر قواعد 
البیانات الذي نتعامل dao‏ سواء كان قاعدة بیانات أو XML File‏ أو ملف نصي او ملف اكسيل أو 


خلا 43 . 


لل LINQ‏ ثلاث انواع رئيسية سنحاول التعرف على آجزائها هي: 
LINQ to SQL -1‏ 
LINQ to XML -2‏ 
LINQ to Objects -3‏ 
أبسط آنواع الاستعلام هي الاستعلام مباشرة إلى متغیر من نوع Array‏ ۰ لنفترض المثال الذي 


شر حناه في مقدمتنا إلى LINQ‏ قبل 3ae‏ دروس بالشکل التالي: 


CH 


from d in developers 


where d.Language == "C#" 
select d.Name; 





هذه هي نفسها Alem‏ الاستعلام التي كنا نکتبها بالشکل التالي: 


SQL ۱ 





SELECT name FROM developers WHERE language="C#" 


و لکن OY!‏ لم نعد نحتاج لو جود قاعدة بیانات لتنفین جملة الاستعلام هذه علیها c‏ بل صار بامکاننا 


تطبیقها على مصفو 43 بالشکل التالي: 
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public class Developer 


{ 


public string Name; 
public string Language; 


} 

Developer[] developers = new Developer[] 

{ new Developer { Name = " Ahmed", Language="C#" }, 
new Developer { Name="Khaled", Language="Java" }, 
new Developer { Name-"Ali", Language="C++"} 


E 


VB.NET 


Public Class Developer 

Public Name As String 

Public Language As String 
End Class 
Dim developers As Developer )( = new With { New Developer { .Name = " Ahmed", 
.Language-"C4" }, New Developer { .Name-"Khaled", .Language-"Java", New 
Developer ( .Name-"Ali", .Languag="C++"} } 





ومن ثم نكتب جمله استعلام بسيطة بالشکل التالي > 


IEnumerable«c«string» LINQresult = from d in developers 
where d.Language == "0#" 
select d.Name; 


VB.NET 


Dim LINQresult As IEnumerable(Of String) = From d In developers _ 
Where (d.Language = "C#") 
Select d.Name 


foreach (string s in LINQresult) 


{ 


MessageBox.Show(s); 


} 


VB.NET 


For Each s As String In LINQresult 
MessageBox. Show (s) 
Next 
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كما تلاحظ یمکنک استخدام اي معامل من المعاملات السایقه او عدمه » فجملة حالتالی صحيحة 


ما دمت M‏ تحتاج الشرط: 


CH 


IEnumerable«string» LINQresult = from d in developers 
select d.Name; 


VB.NET 


Dim LINQresult As IEnumerable(Of String) = From d In developers() _ 
Select d.Name 





كما یمکنک ایضا استخدام net ate‏ عادية ضمن الشرط Jis‏ دالة الطول بالشکل التالی: 


IEnumerable«string» LINQresult = from d in developers 
where d.Name.Length > 3 
orderby d.Name 
select d.Name; 


Dim LINQresult As IEnumerable(Of String) = From d In developers _ 
Where (d.Name.Length > 3) _ 
Order By (d.Name) _ 
Select d.Name 





ترتيب حمل الاستعلام 

تعودنا في جمل الاستعلام على ترتیب lusty Select From Where‏ في 
۵ اانستخدم Select‏ لتکون هي الاخيرة دائما > السیب بكل بساطة هو ما یعرف باسم 
ccc Intellisense‏ اننا نود ان نعتمد على الفیجوال ستودیو لیظهر LY‏ الأعمدة التی یمکنها الظهور 
Lt‏ » فيما لو Select Las‏ قبل From‏ فلن يستطيع الفیجوال سنودیو مساعدتک في تحديد 


الخيارات الموجودة لإنه لا يعرف اي جدول تريد أن تقراً منه بعد. 


جملة الاستعلام الكاملة: 
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trom id iñ source 


{ 


fram 1d in source 7 


Join id in source on expr equals expr [into id] | 

Let id = expr | 

Where condition | 

Orderby ordering, ordering, ... [Ascending | Descending| 


} 
ضع هذه الصيغة العامة في بالك فقط ۰ سنتعرف علیها خلال عملنا في هذه الدروس ان شاء الله 





LINQ دوال‎ 


تحتوي LINQ‏ على 51 Alla‏ ووظيفة مختلفة » سنحاول OY!‏ التعرف على معانی و شروحات 


هذه المحموعه من الدوال والتي سنستخدم Linas‏ منها خلال درو سنا i‏ 





الدالة الو صف 


COL pd‏ رای ی کک ای اک کک راد a]‏ کد 
هل كل الموظفين متزوجين آم لا : 


bool isMarried = employees.All(emp => emp.statues == 1); 


المتو سط لمجموعه من القیم » هذا المثال > 
double avg = ints.Average();‏ 


حيث أن 1 هى مجموعة من Yl‏ قام 
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> لتحويل مجموعه من العناصر إلى نوع محدد 6 هذا المثال‎ Cast 


var New Tringi = ۳۱۱۳ css mE mS = (je 
: من الار قام‎ AS هی محمو‎ 1 S آن‎ Coo 
و‎ A- له‎ queryl عنصرین ۰ فمثلا لو كان لدينا‎ qeu Concat 
: له نتيجة آخری ونود دمجهم یمکن استخدام الآمر التالی‎ ۷ 2 
var result = queryl.Concat (query2); 
عن مو ظف اسمه محمد‎ Cod تستخدم للبحث داخل مصفو 43 ( مثلا‎ Contains 
: نكتب السطر النالی‎ 
bool find-employees.Contains (new employee ("Mohammed"); 
. Gale Query وهی مشایهه لعمل ذلك عن طریق‎ 
: يقوم بعد نتائج الاستعلام أو عدد عناصر المصفوفة أو أيا ما يكن‎ Count 
int count = employees.Count(); 
: كانت هناك قيمة فارغة فيتم وضع قيمة افتراضية لها‎ 13 DefualtIlIfbmpty 
var result = ints.DefualtIfEmpty (100); 
« لو لم يحم تحد ید ها فسیتم و صح القیمه الافتراضيهة لنوع البیانات‎ 
.Object Tri UL للنصو ص و‎ n 9 مثلا صفر للأرقام‎ 
: يقوم باعادة البیانات بدون أي تکرارات » مثلا‎ Distinct 
Val pure = Uu y Dion uq NT 
: یقوم باعادة القيمة في مکان معین › مثلا‎ ElementAt 
Employee newemp = query.ElementAt (4); 


ElementAtOrDef‏ لو لاحظت في QU‏ السابق آنک قد تکتب رقم 4 فى حين انت 
ualt‏ نتيجة الاستعلام لم تعد آربع صفوف آصلا . لذا تخبرنا الجملة 
التالية أنه فى iL‏ كون الرقم غير موجود يتم الاستعاضة عنه 
بالقيم الافتر اضیه للفته أو لنوع البيانات : 
Employee newemp = query.ElementAtOrDefualt (4);‏ 
Empty‏ قوم بانتاج مجموعة فارغة من العناصر ‏ بالشکل التالي مثلا : 
var newresult = System.Query.Sequence.Empty<employee>();‏ 
EqualAll‏ المقارنة بين نتیجتی استعلام والتأكد من آنهما متطایقتان : 
quer, nca ۲ (query);‏ ~ ا 0 ول bool‏ 
EXCEPT‏ مقارنة مجموعتين من العناصر واستر جاع القیم المو جودة في 
المجموعة الأولى دون أن تکون في المجموعة الثانية : 
var result = queryl.Except (query2);‏ 


الناتج سیکون يدون تكرارات . 
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: عنصر فى المجمو عة‎ Joi باعادة‎ aga, First 
Employee firstone = employees.First(); 
لا 5953 2 العنا ده فارغة‎ Of لا ید‎ P 
: ید أن تكون محموعه | صر هده قار‎ 
كما يمكن أيضا أن يعيد أول عنصر في استعلام فرعي › فلاعادة أول‎ 
: موظف متروج‎ 
Employee firstone = employees.First (emp => emp.ismarried 
SS dp 
مثل السابق ما عدا أنه فى حالة کون المجموعة فارغة أو الاستعلام‎ FirstOrDefault 
: الفرعی لم يعد بنتيجه أن يعيد القيمة الافتر اضبه‎ 
Employee firstone = employees.FirstOrDefault(emp => 
emp.ismarried -- 1); 
Aggergate ال‎ du Fold 
تجمیع العناصر حسب التحدید » مثل 6101125817 الطبيعية في ال‎ GroupBy 
: هذا المتال‎ . Sql Statement 
var newGroup = employees.GroupBy (emp => emp.Country); 
. ویمکن الو صول له عبر هذه الخاصية‎ KEY ویسمی‎ 
. Join عملبة ال‎ 8 
: تقاطع مجموعين 0 العناصر المو جودة فى كلا المجموعتین فقط‎ Ligue eu Sec 


var inter = queryl. Intersect (query2); 
. Sql Statements فى‎ inner join عملية ال‎ Join 
: و لکنها تعید آخر عنصر‎ First s Last 


ML MO MS bAa 


Employee lastone=employees. Last (emp => 
emp.Country--"Egypt"); 


LastOrDefault‏ مثل السابق ما عدا أنه فى حالة کون المجموعة فار غة أو الاستعلام 
الفرعى لم يعد بنتيجه أن يعيد القیمه الافتراضية : 
Employee firstone = employees.LastOrDefault(emp =>‏ 
emp.ismarried -- 1);‏ 


: هذا المثال‎ LONG ولکن الناتج یکون من النوع‎ Count gis LongCount 


GOOD = Guploweses.lomnomt ob ()) 5‏ وا 


: أكبر عنصر قيمة في المجموعة‎ Max 
int num 1 S) iste ۶ 


ويمكن تحديد طريقة لمعرفة المقارنات بين الفئات كما تعلمنا فى 


دروس سابقة 


55 


و اعادة البقية > 


var newResult = queryl.Skip(10); 
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IME MUM < ۳۳ e MI,‏ 
ويمكن تحديد طريقة لمعرفة المقارنات بين Glial!‏ كما تعلمنا فى 
دروس سابقة 
6 استخراج العناصر من نوع معين فقط . لاستخراج العناصر ال int‏ 
فقط مثلاً نکتب : 
var newResult = list.OfTypecint»();‏ 
OrderyBy‏ لتر تیب النتائج حسب طريقة معينة (تصاعدیا ( هذا الکود کمثال : 
var orderlist = employees.OrderBy(emp => emp.Age);‏ 
OrderyByDescen‏ التر تیب و لکن بصورة تنازلية › هذا المتال : 
var orderlist - employees.OrderyByDescending(emp << GLIA)‏ 
emp.ID);‏ 
Range‏ تولید مجموعة من الأرقام الصحيحة بين حدین معینین : 
var newlist = System.Query.Sequence.Range(1, 5);‏ 
Repeat‏ تكرار رقم معین عدة مراتء مثلا لتکرار رقم "1" خمس مرات : 
var list = System.Query.Sequence.Repeat(1, 5);‏ 
Reverse‏ عکس ترتیب Ci‏ مجموعة : 
var revList - list.Reverse();‏ 
Select‏ جملة البحث العادية. یمکن أن یستعلم عن الکل: 
var newSelect = list.Select (emp => emp);‏ 
أو آجزاء معینه فقط 
var newSelect = employees.Select (emp => new | emp.Name,‏ 
emp.Age });‏ 
SelectMany‏ فى حالة استخدامنا Group J‏ فان الناتج لن یکون صفا و احدا فقط . 
لد لک نستخدم SelectMany‏ بالشکل التالی > 
var newSelect = groupedlist.Select(l => 1);‏ 
6 ععادة قيمة واحدة فقط يشرط Wi‏ تحتوي المجموعة على غيره : 
wer result < query,Single();‏ 
SingleOrDefaul‏ نفس السابق عدا أنه يعيد القيمة الافتراضية فى حاله عدم و جود أي 
IE‏ عناصر : 
var result = query.SingleOrDefault();‏ 
Skip‏ تجاوز عدد من العناصر واعادة الباقی . مثلا لتجاوز Joi‏ 10 عناصر 





الباب الثامن LINQ puc‏ 
SkipWhile‏ مثل السابق و لکنه یتجاهل العناصر حتى تحقق شرط معين و لیکن 
مثلا تجاوز رقم ما حد ال 100 : 
var newResult = queryl.SkipWhile(x => x > 100);‏ 
oum‏ جمع قيم محمو Ac‏ : 
Double sum = ints.Sum();‏ 
pga: Take‏ باستر gle‏ عناصر بعدد معین من البداية : 
var LOD = IMCS , lake ۶‏ 
6 استرجاع عناصر حتی حدوث شرط Le‏ مثلا الاستر gle‏ حتی ایجاد 
وا > و رح var orm lakenn OG‏ 
7 لتحدید الاو لویات Wie‏ فی الکود الخاص بالتر تیب للتر تیب clin‏ علی 
العمر ثم على المر تب مثلا : 
var orderemp=employees.OrderBy (emp => emp.Age ThenBy emp‏ 
emp.Salary);‏ << 
ThenByDesecndi‏ نفس السایق ما عدا أن التر تیب هذه المرة سوف یکون تناز لیا : 
var orderemp-employees.OrderBy (emp => 0 6 ng‏ 
ThenByDesecnding emp => emp.Salary);‏ 
81!)١+157‏ تحویل إلى مصفوفة : 
Employee[] emps = query.ToArray();‏ 
ToDictonary‏ نفس السايق ولکن مع تخزینها في مصفوفة ثنائية الأبعاد . 
ToList‏ تخزینها 3 کائن List<T>‏ 
ToLookup‏ تخزين الناتج فى كائن Lookup<K, V>‏ 
6 تحویل الناتج إلى Sequence‏ متتابع حيث يحل مشكلة التعارضات في 
الأسماء بين الدوال وأسماء الحقول . 
Union‏ عملية الاتحاد الرياضية حيث يحتوي الناتج على مجموعة تشمل كل 
عناصر ١‏ لمجمو عتين : 
var result = queryl.Union(query2);‏ 
Where‏ جملة البحث يشرط العادية . 


الجدول 18. 1. الکلمات المفتاحية لتقنية ال LINQ‏ 
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استفدت کنیرا فی الجزء السابق من (LINQ ial) vati‏ یمکنك تنزیلہ من هذا الرابط 


www.vb4arab.com/ vb/ uploaded/ 2730/ 11202261862.pdf 





تدحير سر يع : المتغيرات غير prot!‏ 43 


احيانا تقوم بعمل جملة استعلام يكون الناتج فيها فئة لم تقم بتعريفها من قبل ۰ هذه هي واحدة 
من فوائد تقنية Implicitly Typed Local Variables‏ التي تم ترخا ساق » هده Eds Bs‏ 


CH 


var subset = from i in numbers 


where i « 10 
select 1; 





۴ تذكير آخر : استخدام Lambda Expressions‏ مع LINQ‏ 


تذکر أن باستطاعات استخدام تعبیرات لامبادا Lambda Expressions‏ بدلا من كتابة استعلام 


LINQ‏ بالطريقة العادية. 


LINQ To DataSet 





ال DataSet‏ كما اسلفنا تشکل 35542 أو نسخه من قاعدة البيانات فى الذاكرة . لذا فهى 


Js‏ بساطة نقطة جيدة لنستخدم علیها استعلامات LINQ‏ الخاصة بنا. 


فم نله لنجرب ربط قاعدة Süle‏ باستخدام DataSet‏ ومن ثم ربطها بي DataTable‏ 
والحصو (J‏ على يعض البیانات متها : 
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DataSet ds = LoadDataSetSomeway (); 

DataTable employees = ds.Tables["Employee"]; 

var query = 
from emp in employees.AsEnumerable )( 
where emp.Field«long»("Age").Year << 40 
select emp; 


Dim ds As DataSet = LoadDataSetSomeway () 
Dim employees As DataTable = ds.Tables ("Employee") 


Dim query = From emp In employees.AsEnumerable() 
Where emp.Field(Of Long) ("Age") .Year >= 40 _ 
Select emp 





LINQ To XML .4 


اصبحت o3! XML‏ آحد أكثر مخازن البیانات شیوعا ۰ و LINQ‏ تتعامل مع XML‏ مثل 
تعاملها مع أي نوع آخر من قواعد البیانات » اضافة لبعض الخصائص الاضافية التي تختص ب XML‏ 


فقط والتي سنتعرف علیها An gw‏ . 


فمثلة لو افتر ضنا ملف XML‏ يحتوي على بعض المنتجات بالشکل التالي : 
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<?xml version="1.0"?> 
<Items> 
<Item Number="122"> 
<ItemName>Item1</ItemName> 
<Quantity>100</Quantity> 
<Price>23</Price> 
</Item> 
<Item Number="123"> 
<ItemName>Item2</ItemName> 
<Quantity>10</Quantity> 
<Price>14.5</Price> 
</Item> 
<Item Number="124"> 
<ItemName>Item3</ItemName> 
<Quantity>31</Quantity> 
<Price>1000</Price> 
</Item> 
<Item Number="125"> 
<ItemName>Item4</ItemName> 
<Quantity>22</Quantity> 
<Price>97</Price> 
</Item> 
</Items> 





بداية سنقوم بعمل Load‏ لملف ال XML‏ بالشکل QAUM‏ : 


XElement purchaseOrder - XElement.Load("Items.xml", LoadOptions.SetBaseUri 
LoadOptions.SetLineInfo); 


VB.NET 


Dim purchaseOrder As XElement < XElement.Load("Items.xml", 
LoadOptions.SetBaseUri Or LoadOptions.SetLineInfo) 


الآن » لو افترضنا LO)‏ نود استعراض مجموعة الأصئاف المو جودة لدينا « سیکون الکود الذي نكتبه 


بالشكل التالي : 





CH 


var newSearch = from item in Items.«Item» 
select item.(Number; 
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VB.NET 


Dim newSearch = From item In Items.<Item> () 
Select item. Number 


و للعثور على المجموعة التي سعرها آکبر من 100 دولار مثلا ؟ 





var newSearch = from item In ltems.«Item» 
where item.<Price>.Value > 100 
select item.@Number 


VB.NET 


Dim newSearch = From item In Items.<Item> () 
Where (item.<Price>.Value > 100) 
Select item. @Number 





LINQ To SQL 


aia‏ من فتات LINQ‏ مو EYE Ago‏ لدعم SQL Server‏ » في العادة هي الأكثر استخداما 


وسنحاول التعرف علیها سریعا في هذا الدرس. 
البحث والاستعلام 
Lid paï‏ عليه شايفا ۰ هذا المتال مثلا لاعادة الاسم وتاریخ التخرج على JSG‏ فته جديدة 


للأشخاص الذين يزيد عمرهم عن 30 سنة ویقطنون في مصر : 


val query from c in Employee 
where c.Age > 30 && c.Country == "Egypt" 
select new { c.Name, c.GraduationDate 7 


VB.NET 


Dim query From c In Employee _ 
Where (c.Age > 30) AndAlso c.Country = "Egypt" _ 
Select New With (c.Name, c.GraduationDate] 
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Stored Procedures ste استد‎ 


كل ما علیک هو فقط تعریف ats‏ تشابه Procedure‏ لها نفس ال Attributes‏ . وهي Le‏ 
یقوم بها الفیجوال ستودیو افتراضیا » OF‏ کل ما علیک هو کتابة pel‏ بهذا الشکل ) استعلام 
بستقیل متغير واحد ( x‏ 


CH 


var c — db.ProceduresName ("Egypt"); 


VB.NET 


Dim c = db.ProceduresName ("Egypt") 





اذا كان هناك جملة استعلام ستستخدمها لعدة مرات فليس من المنطقي جعل نظام قواعد البیانات 
یتعر cà‏ من جدید على الاستعلام كل مرة . لذا توفر نا alas‏ قو اعد البیانات الحل لهده النقطة › 
آیضا LINQ‏ تقدم لنا ذات النظرية عبر ما یسمی باسم .Compiled Query‏ 

فكرة ال Compiled Query‏ ببساطة تعتمد على استخدام دالة 

عام 00 ۷ ععمل Compile‏ لجملة الاستعلام ۰ الشکل التالي کمنال: 


var c = CompiledQuery.Compile((DataContext context, string CountryName, int 
=> 
from c in Employee 
where c.Age > age && c.Country == CountryName 
select new { c.CustomerID, c.CompanyName, c.City }); 


VB.NET 


Dim c = CompiledQuery.Compile(Function(context As DataContext, CountryName As 
String, age As Integer) From c In Employee _ 

Where c.Age > age AndAlso c.Country = CountryName _ 

Select New With {c.CustomerID, c.CompanyName, c.City}) 





والآن يمكنت تجرية است‌خدامها لأكثر من مرة بتغییر البارمیتر فقط . والبحث في الاستعلام 


الذي تم عمل Compile‏ له: 
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foreach (var query(dc, "Egypt", 22)) 


foreach (var query(dc, "USA", 28)) 


foreach (var query(dc, "Saudi", 3239)) 


VB.NET 


For Each row In quervi(do, "Bayon", 22) 
Next 

For Each row In query (de, "USA", 28) 
Next 

For Each row Inm quervido, TTT, 39) 
Next 





استخدام دوال في Alem‏ الاستعلام 
لو فر ضنا Alem‏ الاستعلام التالية: 


SQL ۱ Sgen 
SELECT SUM( emp.salary ) AS TotalSalary FROM Employee emp JOIN Department dem 
ON emp.DepartmentID = dep.ID GROUP BY dep.ID 





نستطیع كتابتها بشکل LINQ‏ بالشکل التالي: 


from emp in db.Employee 

join dep in db.Department 

on emp.DepartmentID equals dep.ID 

into Iortalsalaty 

select TotalSalary.Sum(emp -» emp.Salary); 


VB.NET 


From emp In db.Employee() 

Join dep In db.Department _ 

On emp.DepartmentID Equals dep.ID _ 

Puro (loOtalsalary) .. 

Select TotalSalary.Sum( emp => emp.Salary ) 
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است‌خدام جمل الاستعلام داخل LINQ‏ 
قن تجن سك مطيظر ١‏ احا لاست‌خدام واحدة من ممیزات جمل الاستعلام التقليدية مثل الأمر 


: LINQ داخل ال‎ SQL على كل هذه هي الصيغة العام لتنفيذ جملة‎ PIVOT 


-مثال منقول - : 


var query = db.ExecuteQuery«EmployeeInfo»(80" With EmployeeHierarchy 
(EmployeeID, LastName, FirstName, ReportsTo, HierachyLevel) 
AS 
( SELECT EmployeeID, LastName, ForstName, ReportsTo, 1 as HierarchyLevel 
FROM Employees 
WHERE Reporcsio LS NULL 
UNION ALL 
SELECT e.EmployeeID, e.LastName, e.FirstName, e.ReportsTo, 
eh.HierarchyLevel + 1 AS HierarchyLevel 
FROM Emplyees e 
INNER JOIN EmployeeHierarchy eh 
ON e.ReportsTo - eh.EmplyeeID 
) 
SELECT * 
FROM EmployeeHierarchy 
ORDER BY HierarvhyLevel, LastName, FirstName"); 


VB.NET 


Dim query = db.ExecuteQuery (Of EmployeeInfo)(" With EmployeeHierarchy 
(EmployeeID, LastName, FirstName, ReportsTo, HierachyLevel) 
AS 


( SELECT EmployeeID, LastName, ForstName, ReportsTo, 1 as HierarchyLevel 
FROM Employees 
WHERE ReportsTo IS NULL 
UNION ALL 
SELECT e.EmployeeID, e.LastName, e.FirstName, e.ReportsTo, 
eh.HierarchyLevel + 1 AS HierarchyLevel 
FROM Emplyees e 
INNER JOIN EmployeeHierarchy eh 
ON e.ReportsTo - eh.EmplyeeID 
) 
ro) ray * 
FROM EmployeeHierarchy 
ORDER BY HierarvhyLevel, LastName, FirstName") 
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LINQ في‎ Inseret استخدام‎ 


var NewEmp = new Employee { FirstName = "Ahmed", Age = 25, Country="Egypt"}; 
db.Employee.Add( NewEmp ); 


VB.NET 


Dim NewEmp = New With {.FirstName = "Ahmed", .Age = 25, .Country = "Egypt"} 
db.Employee.Add (NewEmp) 





في المتال السابق قمنا dalol‏ مو ظف جدید باسم آحمد ویعمر 25 Aiw‏ ومن مصر. 


Update است‌خدام‎ 


var EditEmp = db.Employee,Single (c => c.Country == "Egypt"); 
EditEmp.Age = 30; 


Dim EditEmp = db.Employee.Single(Function(c) c.Country = "Egypt") 
EditEmp.Age - 30 


في المنال السابق قمنا بالتعدیل لعمر کل الاشخاص من مصر لیصبح SO‏ سندة. 





Delete است‌خدام‎ 


var deleteEmp = db.Employee.Single(c => c.Age > 50); 
db.Employee.Remove (deleteEmp); 


VB.NET 


Dim deleteEmp = db.Employee.Single(Function(c) c.Age > 50) 
db.Employee.Remove (deleteEmp) 


في المنال السابق قمنا بحدف got!‏ ظفین الذين تزید اعمارهم عن 50 سنة. 
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SubmitChanges 6 


بعد اي عملية ‏ للاضافة آو للحذف أو التعديل لا يد من استدعاء 


مه 


do.SubmitChanges )( ana‏ لتفعیل التغییرات في قاعدة البیانات. 
التحديث بالتزامن فى قاعده البیانات 


* ال LINQ‏ تتعامل بالوضع المنفصل وليس المتصل . لذا ستجد له الکائن 
ChangeConflictExeption‏ والذي ينتج عن تعارض عمليات التعديل على قاعدة البيانات 


بين عدة مستخدمين › يمكن استعراض رسالة الخطأ بالشكل التالي: 


LI 
{ 
Db2.SubmitChanges(); 
break; 
i 
catch (ChangeConflictExeption ex) 
{ 
MessageBox. Show(ex.Message) ; 
Db2.Refresh(somequery, RefreshMode.KeepChanges) ; 


VB.NET 


Iry 
Db2.SubmitChanges() 
Exit Try 
Catch ex As ChangeConflictExeption 
MessageBox.Show(ex.Message) 
Db2.Refresh(somequery, RefreshMode.KeepChanges) 
End Try 





هنا یحاول الاستعلام التنفين ۰ لو لم یستطع یظهر رسالة الخطأ ویحاول مع آمر Refresh‏ مرة 


أخرى. 


يمكن ايضا في الأمر SubmitChanges‏ تحديد سلوك البرنامج في حالة حدوث تعارض مثل 


الشكل التالي: 


526 


LINQ jue الباب الثامن‎ 


Db.SubmitChanges(ContfilictMode,FailOnFirstConrlict); 
Db.SubmitChanges (ConflictMode.ContinueOnConflict); 


VB.NET 


Do.soubmitChangss(ConrflictMode.ParlOnbsPrirstConrlior) 
Db.SubmitChanges (ConflictMode.ContinueOnConflict) 


وذلک من الفثة ConflictMode‏ والتي Y‏ تحتوي Sow‏ على هذين العنصرین. 


7 . انشاء Ling To SOL cilia‏ من خلال الفیجوال 





سنودیو 


یمکنک الفیجوال ستودیو 2008 من انشاء LINQ TO SQL Classes‏ یمکنک التحکم بها 


لاحقا . من الشاشة الأولى: 
Add New Item - WindowsFormsApplication10. |‏ | 


Categories: 
Visual C* Items 


= 3 9 3 ها‎ d 


de ۱ Debugger HTML Page icon File Installer Class 
General Visualizer 
Web 


Windows Forms l a ig 
WPF 


| JScript File LINQtoSQL Local | MDI Parent 
Reporting Classes Database Lá Form 
Workflow 0 


Resources — Service-ba... Style Sheet 
File Database 


2 & B i 


User Control User Control WCF Service Windows Windows 


LING to SQL classes mapped to relational objects. 


Mame: DataClassesi.dbmi 


as) [tones] 











الصورة 18. 1. نتائج pall‏ ض. 
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بعد اختیاره ۰ یمکنک انشاء علاقات و جداو ل جديدة او سحب قاعدة بیانات من Server Explorer!‏ 


لذا قم بفتح قاعدة البیانات الخاصة ينا وقم بالبدء بسحب الجداو ل» ستجد الشکل العام التالی: 


=! Properties 


3 2۳ Id 
em Employee ID 
Em Project Mame 


Employee info 


E Properties 
? 9m id 
ke: First Mame 
kt: Last Mame 


BE Age 





الصورة 18 . 2. جداول قاعدة البیانات. 


OM!‏ يكل يساطة ستلاحظ ان الفیجوال ستودیو قام بمساعددتک فى Data Access Layerztzat‏ - لو 


كنت تتااگر ها ۰ تحن Cibus pad‏ للدوال التالید متلا 


partial void InsertEmployee info(Employee info instance) 


partial void UpdateEmployee info(Employee info instance); 
partial void DeleteEmployee info(Employee info instance); 
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VB.NET 


Partial Private Sub InsertEmployee info(ByVal instance As Employee info) 


End Sub 
Partial Private Sub UpdateEmployee info(ByVal instance As Employee info) 


End Sub 
Partial Private Sub DeleteEmployee info(ByVal instance As Employee info) 


End Sub 





قبل أن أنهي الفصل الخاص ب LINQ‏ لو كنت تود معرفة المزید عن LINQ‏ فکتاب المهندس محمد 


اهر Deis‏ فكون اس نک كدانة حدة قى هذا المشال + تحده على هذا الترائط :+ 


رابط هج 


http://www.vbcoffee.net/SamerSelo/lingcourseebook. pdf 
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منن الاصدار 3.0 net‏ تم اضافة ما يسمى Windows Workflow Foundations‏ و یعرف 
اختصارا ۲۳ وهی مجموعة من المهام والدوال API‏ تسمح لک بادارة ومراقبة وتنفید ال 
۸۷ او سير العملیات ان صحت التر جمة . 
طبعا تعد هذه الخاصية واحدة من انفع الخصائص لمهندسي البر مجیات التي تمت اضافتها داخل ال 
viusal studio‏ حيث اصبح بالامکان دمج ال ۷۷۵۲۱۲۱0۷۷5 مع الکود أو التنفين الفعلي مباشر B‏ 
ال WF‏ او ال Workflow‏ هی مجموعة العملیات التى يتم تشکیل البرنامج بناء علیها ۰ حيث یتکون 
البر gold‏ من مجموعة مرتبطة مع بعضها البعض من ال Business Process‏ والتی تحتوي بدورها 
على مجموعة من المهام Old‏ الصله بینها وبين بعضها البعض lg‏ تعمل سوية. 
مثال 
خدمة الصيانة لمنتج : يحتوي هذا البرنامج على طلب الايصال وادخال رقمه وعمل Check‏ على 


قاعدة البيانات للتأكد من وجوده ثم تقديم خدمة الصيانة ثم طباعة ايصال صيانة. 


هذه العملية كلها تسمى Business Process‏ والعناصر الداخلية تسمى tasks‏ والبرنامج يتكون من 


.Business Process عدة‎ 


هناك العدید من البرامج التي تقدم ata) za‏ ال ‘Workflow‏ و لکن الميزة هنا انها مر تبطه ار تباطا 
و Lard‏ بالکود (Se Cu»‏ عمل Trace‏ لكل $249 على حدة و تتبع ea SH‏ إن وجدت » اضف إلى 


ذلك امکانیه التعدیل لاحقاً في الجزئيات الکبری بسهولة ویسر. 
1. مكونات و اساسبات WF‏ 


ال WE‏ هی كود قابل للتنفين و لیس فقط مجرد رسومات توضيحية مثل ۰۷۱5۱0 لذا فالحمل 
الشرطية والتكرارات وخلافه الموجودة فى ال ۷۷۲ يتم تنفید‌ها فعليا. ولهذا السبب فال WE‏ تحتوي 


على namespaces‏ و assemblies‏ و aasta‏ شأنها شأن اي مكونات .het,jr‏ 


Workflow Activity 
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يتم 93 صیف العمل الخاص Ua‏ على شکل ceca» Activities‏ لنا الفیجوال gua gi‏ وسائل للر بط 


والانتقال بینهم وبين ax‏ مثل 5a! Delay gi 11 else‏ أو حصول Invoke‏ معین او ینم 


۱ Narre WorkflewProjecti 


| Solution Name: WorkflewProjectl 


تنفید‌ها على JSG‏ خطوات معینه: 


WE s البدا‎ .1.1 


قم بانشاء مشرو ع جدید c‏ اجعل نوع المشرو ¢ Workflow‏ ثم اختر :Empty Workflow‏ 


l Project types: 


4 Visual Cs 
Windows 
Web 
Smart Device 
Office 
Database 
Reporting 
Test 
WCF 
Workflow 
» Database Projects 
» Other Languages 
Distributed Systems 
b Other Project Types 
» Test Projects 


An empty project for creating a workflow. (NET Framework 3.5) 





Templates: 


[NET Fr Framework 35 Ses | 


| Visual Studi installed templates 


ul de‏ لا كن كن كن 


Empty 


| Worktlo... 


2 


State 


Machin... 


Mey Templates 


Search 


| Online Te... 


Sequential SharePoint SharePoint State 
Wardle. — 2007 Seq, — 2007 Stat. Machine... 


Location: CAUsers Ahmed Documents Visual Studia 20034 Prapects 





iv! Create directory for solution 


uM 


الصور ô‏ 19. 1. انشاء مشروع جدید من نوع .Workflow‏ 


Empty Workflow 


مشروع فارغ لا يحتوي على اي تنسیقات خاصة . اضافة للأنواع التالية والتي تعد اساسیات عالم 
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Sequential Workflow .2 .1‏ 
النوع الأول من انواع ال Diagrams‏ التي توضح ال UML‏ الخاص بنا » يتم توضیح العمل 
فيه على شکل عملیات Ada Mie‏ متتالية توضح الشکل العام لکامل العملیات ۰ وهو النوع الآشهر 


و tea SH‏ استخداما: 


5 
Ele Eat View Project Build Debug Tools Test Window Communty Help 


kl id a‏ بای را 
Thi‏ ۳/۳ 
L.‏ 

















1 

4 
F Handlers : 
Ei Paransecters ل‎ 
E [Raturmivalua) 








| fequenti 


Enables execubón af 8 group ef actiemes in a 











E (RetarnValue) 
Ee speühy a valua fer paraenater af type 
ad Task Les نب‎ Call Siad ١ ل‎ Command Windew |Z] irmoctsen Window ad Error Lei لک‎ û zput cal Locis: gud Wich 
Ready | 


الصورة 19. 2. مخطط ال Sequential Workflows‏ 


State Machine Workflow 1 


تهتم اكثر ما تهتم Sle Yh‏ عن طریق مجموعة من الطلبات والتغییرات: 
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state Machine Workflow 





3H OrderCreatedE vent 


FH Order pdatedE vent 
2 OrderFrocessedE vent 


zy OrderUpdatedE ventz 
eH [IrderCanceledE vent 
zH OrderShippede vent 

















الصورة 19. 3. مخطط ال StateMachine Workflow‏ 
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WWE ubi 2 


سنقوم OM!‏ يعمل تطبیق بسيط » سنقوم بالطلب من المستخدم ادخال كلمة المرور ۰ في 
حالة کون كلمة المرور صحيحة Bow‏ نقوم بعرض رساله ترحیب والا sale!‏ المحاو له لادخال 


لذا قم يبدء مشروع جدید Sequential Workflow Console Application‏ وسمه كما 


LH ———^^^»^»——»————————————^^^—^——^——^^^——^^———————————————————————————————————————————————————————————————————————————( 


i Sequential Workflow 0 


Drop Activities to 
create a 
Sequential 
Workflow 


t 
© 


SequentialWorkflowActivity 
Enables execution of a group of activitie 
sequence, 


الصورة 19. 4. مخطط ال Sequential Workflow‏ 


الآن سنقوم بادراج Code Activity‏ وسنضع الأمر التالي ‏ في الحدث 


:CodeActivityl ExecuteCode 


537 


الباب التاسع عشر WWE‏ 


private void codeActivityl ExecuteCode(object sender, EventArgs e) 


{ 


Console.ForegroundColor = ConsoleColor.Yellow; 
Conselewrirenine[("*t5€w9 First MPF Exaile =e ee nn); 
Console.ForegroundColor = ConsoleColor.White; 


VB.NET 


Private Sub codeActivityl_ExecuteCode (ByVal sender As Object, ByVal e As 
EventArgs) 
Console.ForegroundColor = ConsoleColor. Yellow 


Console.WriteLine ("***** First WPF Example *****" $& Chr(l0) & "" & Chr(10) 
& Ww ايل‎ 


Console.ForegroundColor = ConsoleColor.White 
End Sub 


الخطوة التالية هي اضافة حلقة تکرارية لا يتم الخروج منها الا بادخال کلمة مرور 
صحيحة . لذا قم بسحب While LOOP‏ » وسنقوم بتحدید ال Condition‏ الذي ستخرج منه اما 





بناء علی: 

agai function ana -‏ بقيمة منطقية Boolean‏ بحیث يتم استدعائها مع کل LOOP‏ و تعید 
false‏ للتو قف أو Crue‏ للاستمر ار. 

- او clu‏ على declarative rule condition‏ اي عن طریق جملة خاصفة. 

في مثالنا هذا سنعرف AskAgain ats‏ والتي ستعید Crue LY‏ في ate‏ الجملة الخاطة لاعادة 
السوّال فيما تعید لنا false‏ في حالة الوصول لكلمة السر الصحيحة. 

لذا من الشاشة الجانبية اکتب اسم الدالة في الشرط Condition‏ بالشکل التالي - بعد تعریف 
خاصية بکلمة المرور او لا: - 


Fm 1 n [^e 
OT ال‎ = 


whileActivityl System. Workflow Activities. Whil > 


Description 
Enabled 
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While Activity Jı الصورة 19. 5. خصائص‎ 


و كود الدال4: 


public string Password 1 get; set; } 
private void AskAgain(object sender, ConditionalEventArgs e) 
{ 
Console.Write ("Enter Password: "); 
Password = Console.ReadLine(); 
if (Password == "Ahmed Gamal") 
e.Result false; 
else 
e.Result Crue; 


VB.NET 


Public Property Password() As String 
Get 
End Get 
Set (ByVal value As String) 
End Set 
End Property 
Private Sub AskAgain(ByVal sender As Object, ByVal e As ConditionalEventArgs) 
Console.Write("Enter Password: ") 
Password = Console.ReadLine() 
If Password = "Ahmed Gamal" Then 
e.Result = False 
Else 
e.Result = True 
End lr 
End Sub 


QI‏ خطو LG‏ الأخيرة اضافة Activity‏ فما تم ادخال كلمة صحبحة ۰ سبتم ف 
خير ة هي يىم مرور 4 سینم ۵ب 





طباعة كلمة This Password is Wrong‏ » لذا قم بسحب Activity‏ وضع هذا الکود فيها: 


private void codeActivity2 ExecuteCode(object sender, EventArgs e) 
{ 
Console.WriteLine("This Password is Wrong..."); 


} 


VB.NET 


Private Sub codeActivity2_ExecuteCode (ByVal sender As Object, ByVal e As 
EventArgs) 

Console.WriteLine ("This Password is Wrong...") 
End Sub 
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هكذا سیکون الشکل الکامل لل Sequential WF‏ بالشکل التالي: 


| Sequential Workflow : 


|S codeActivityl 




















الصورة 19. 6. مخطط التتابع Sequential Workflow‏ 


و شاشه الننائج: 








Eî C:\Users\Ahmed\Documents\Visual Studio 2008\Projects\WorkflowConsoleApplicationl\WorkflowC.... — | E سکس‎ 


Enter Password: sami 
This Password is Wrong... 
Enter Password: ahmed 
This Password is Wrong... 
Enter Password: gamal 
Password is Wrong... 
Password: 
Password is Wrong... 
Password: 


Password is Wrong... 
Enter Password: 
This Password is Wrong... 
Enter Password: 
This Password is Wrong... 
Enter Password: Ahmed Gamal 
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الصورة 19. 7. نتائج التنفید 


dia idee y ۳‏ هنذا إن WE‏ نکن des‏ على aed‏ دول usas‏ هذا Lu‏ هو الحال في نظام 
دخول doris‏ 0 نفس الهيكل مع اختلاف محئویات الکود لكل منهما . (SJ‏ الصورة العامة و اضحه 
وهو ما يفيد كثيرا فى تسهيل قراءة وفهم محتويات الكود اضافة لعمليات ال trace‏ وال Debug‏ 


WF Code Library .3 


في هذه النوعية اصبح بامکاننا انشاء WF‏ یمکنه العمل مع ASP.net‏ أو مع Windows‏ 
Forms‏ » لیس فقط Console‏ ۰ حيث سیتم تحویلها إلى ملف Il‏ ومن ثم استخدامها في اي تطبیق 


سم 


آخر. 
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من خلال استعراضنا للتقنیات الجديدة في عالم NET‏ في مطلع الکتاب ذحرنا بانها تقنية 
جديدة موجهة للتطبيقات التى تعمل على الشبکات أو لتلت التطبيقات الموزعة و خلاقه » و ذکر نا 


ضمنا أنها استبدال للتقنيات الجديدة بدءا من Winsock‏ وانتهاء ب Sockets‏ . 


وقبل البدء بعالم WCF‏ لنلق نظرة سريعة على عالم aie Web Services‏ البداية. 


Web Service .1 


ERE‏ خدمات ويب أو ما یطلق علیها اسم Web Service‏ هي عبارة عن برامج Net‏ طبيعية 
أو على سبیل التحدید فهي ASP.net‏ ولکنها لیس لها واجهة (المقصود هنا بالواجهة هي واجهة 
الاستخدام و لیست g (Interface‏ یستطیع المستخدمون الو صول لها بواسطة Interface‏ معین ۰ حیث 
يتلق آمر أو Request uth‏ ثم يستجيب لها عن طريق http protocol‏ اعتمادا على XML polas‏ 
والتي تؤمن بالتالي أن یفهمها أو تفهمها ملایین البرامج والأجهزة ومواقع الانترنت ببساطة تامة. 
والان سننسی التعریف السابق والمقدمة وسنحاول ان نفهم الموضو ع بطريقة آخری ۰ فخدمة ویب 
عبارة عن برنامج بدون واجهه agar‏ المستخدم بمناداته وطلب يعض المعلومات Are‏ ومن ثم ترد 
عليه الخدمة بهده المعلومات 2 وواحد من آشهر التطبیقات لذلك هي خدمات ويب الخاصة 
بالطقس ۰ حيث تطلب منها الطقس في مدينة معین لتعود لک بدرجة الحرارة مثلاً : وکل ذلک 
أن یکون لها واجهة استخدام اضافة إلى آنها تکون مو جودة على الانترنت. 
وكما آسلفنا فخدمات ویب تعتمد على XML‏ حمعیار لتمثيل البیانات » ما يعني أن جمیع البرامج 
في جمیع الأماكن قادرة على التعامل معها و فهمها بغض النظر عن نظام التشغیل أو لغة البر مجة. 
Of Les‏ الخدمات برامج Legs‏ اسلفنا سابقا c‏ فان السیرفر (STE‏ سیستضفیها علی الانترنت Y‏ بد آن 
يدعم هذا النوع من البرمجة 6 واذا آردت أن تجرب خدمتک الخاصة على جهاز ك الشخصي فتآڪد 


من آنک قم بتحمیل برنامج IIS‏ من ابتداء من مایکر و سوفت 2000 Windows‏ وأكثر. 
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1 . عمل WebService‏ خاص بك من خلال net‏ 
في هذا الدرس السریع سوف نقوم Web Service (Lass‏ نقوم باعطائها در Am‏ الحرارة من 


وحدة (درجة فهرنهایت) لتقوم بتحویلها إلى وحدة (درجة مئوية) « والمعادلة العامة هي: 
result = (input-32) ۵‏ 


و للبدء قم باختیار مشروع جدید New Project‏ و اختر ASP.net Web Service‏ « واختر Low!‏ نها 


في localhost‏ لكي يتم تجربتها على حاسبک الشخصي › مثلا: 
http://localhost/ConvertWebService‏ 


سيقوم فیجوال ستودیو بانشاء بعض الملفات منها ملف Web Config‏ تماما كما ASP.net,,à‏ « كما 
ستجد Lai Global.asax‏ الصفحات الرئيسية فسوف تنشأ باسم .Servicel.asmx‏ 

لاحقاً سيكون الاسم Service]‏ هي الطريقة التي يتم بها الوصول إلى ال WebService‏ الخاص بك 
٠‏ لذا لا تنسى تغييرها إلى اسم مناسب لك و لیکن ConvertWS‏ مثلا.. 

والآن تماما كما تقوم ببرمجة أي تطيبق باستخدام Met‏ قم بتطبيق المعادلة السابقة » لكن لا تنس 


أن Web Service‏ لا بد Yi‏ تحتوي على أدوات مرئية TextBox‏ مثلا. 


ولذا قم باضافة كود بالشكل التالى VB.net‏ مثلا: 


[WebMethod (Description="Jli» "الجر ارة درجات تحویل لعفلية‎ ( [ 
public decimal Convert (decimal degree) 
{ 

decimal result; 

result = (degree - 32) * 5 / 9; 

return result; 


<WwebMeunod (DesCripriOnt =" Glia das) QLagses او‎ eI) O 
Function Convert (ByVal degree As Decimal) As Decimal 

Dim result As Double 

result = (degree - 32) * 5 / 9 

Return result 
End Function 
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والآن لنجرب تطیبق هذه الخدمة» ولا تنس أن یکون خادم ال IIS.‏ مو lage‏ على جهازك. 
قم بفتح المتصفح و لیکن Internet Explorer‏ و «à‏ بکتابة السطر التالي: 


http://localhost/ConvertWebService/ConvertSW.asmx 
تستطيع الآن تجرية الخدمة الخاصة بك والتأحد من کو نها تعمل بصورة صحيحة.‎ 


مھ مه مه 


35( الواقع فلن يتم استخدام الخدمة بهذا الشکل © وانما هذه الطريقه تستخدم فقط لنجربه 
الخدمه على جهاز المستخدم والتأحد من آنها تعمل بكفاءة. 

يتم استخدام 111211211200 في وضع عدد من الخصائص لخدمة الويب ۰ نذكر منها على سبيل 
العحاله: 

BufferResponse -1‏ : وهذه الخاصية تحدد فيما )13 كان سیتم عمل buffering‏ قبل 


الار سال للمستخدم . و لها قيمة True‏ أو False‏ 


CacheDuration -2‏ : وهي تحدد الوقت الذي يتم من خلاله عمل Cash‏ وتأخن قيمة رقمية 


بالتانیه وتحدد الوقت المستغخرق قبل اعادة ارسال البيانات من جديد. 
EnableSession -3‏ : تحدد فيما )15 تم تفعیل خاصية Yai Session‏ 


1 2. استخدام yal WebService‏ بك فی مسروعاتكت 
«pall‏ 


لنفترض اننا نرید الاستفادة من خدمة ویب في برنامج Mie‏ للعملیات الحسابية ۰ ونرید أن 
نستخدم Web Service‏ الذي قمنا به في الدرس السابق والذي یقوم بالتحویل من فهرنهایت إلى 
درجة مئوية والدي كان له الاسم ConvertSW‏ 

قم OY!‏ بانشاء تطبیق ویندوز gale‏ »ومن قائمة Project‏ اختر Add Web Refernce‏ 

سیظهر لك مربع حواري قم باختیار ConvertSW.asmx‏ الذي قمنا ببر مجته في الدرس السایق › 


و كخدمة اضافية من Viusal Studio‏ فسیتم عرض الخصائص والدوال QAM‏ تحتویها هذه الخدمة. 


والآن ننتقل سريعا إلى الکود : 
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ڪو د CH‏ 


LocalHost.ConvertSW conv = new LocalHost.ConvertSW(); 


VB.NET ۱ qA 


Dim conv As New LocalHost.ConvertSW() 


و OM‏ قم مثلا بو ضع Textboxl‏ و Labell‏ حيث آنک تقوم بادخال درجة الحرارة في الأول 


وتنتظر لكلي تعرض لك في الثاني › الکود الکامل لهده العملية يحتوي على الأمر السابق الخاص 


بتعریف الأوبجكت CONV‏ » اضافة للسطر التالي: 





CH 


Labell.Text = Convert.toString(conv.Convert(textBoxl.text)); 


VB.NET 


Labell.Text = Convert.toString(conv.Convert (textBoxl.text)) 
قم فى البرنامج‎ ٠ التنبيه الآخير قبل انهاء هده الدرس هو اک ادا قمت يعمل تعديل في الخدمة‎ 
لها عن طريق الضغط عليها بزر الماوس الآيمن ومن ثم‎ Update الذي يستخدمها بعمل تحديث‎ 


Update Web Reference اختيار.‎ 





1. . استخدام خدمات الانترنت الجاهزة 
سوف نقوم OYI‏ بعمل مشروع یستخدم آحد خدمات ال Web Service‏ المو جودة على 
الانترنت c‏ ویعد البحث عثرت على الموقع التالي الذي يقدم بعض الخدمات: 
رابط هج 
http://www.webservicex.net/WCF/‏ 


يحتوي هذا الموقع على حوالي 70 خدمة مجانية ۰ قمت باختیار واحدة منها وهي 


رابط هي 
http://www.webservicex.net/ValidateEmail.asmx‏ 
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و تخبر نا هذه الخدمه فيما )13 كان هناك ایمیل بهذا الشکل آم لا و تبحث عن هذا الایمیل فى 
الشر کات التی تقدم خدمات البرید الالکترونی. وذلک عن طریق ata‏ اسمها 


157311311 وتعود يقيمة True‏ او .False‏ 


والآن كما اعتدنا . نقوم باضافة Web Refernce‏ جدید للمشروع بالمسار الذي قمنا باضافته 
سايقا > ومن ثم سنقوم برسم على الفورم بحیث يمكن للمستخدم التعامل مع هذه الخدمه بسهو (A‏ 
ولذلك سوف نقوم برسم مربع نص يتم فيه ادخال البريد الإلكتروني ۰ ومن ثم زر آمر بحيث يتم 
اختبار قيمة الشرط ومن ثم عرض رسالة MessageBox‏ فيها حالة الایمیل. 


الكود الذي سيتم وضعه في زر الأمر هو: 


net.webservicex.www.ValidateEmail x - new 
WindowsApplicationl.net.webservicex.www.ValidateEmail(); 
bool r = x.IsValidcEmail(textBoxl.Text); 
AT ES 

MessageBox. show" Hasi pisa زر‎ 
else 

MessageBox.5how( zs! و(" عاط‎ 


Dim x As net.webservicex.www.ValidateEmail = New 
WindowsApplicationl.net.webservicex.www.ValidateEmail () 
Dim r As Boolean = xX.ISValidEmail (textBoxl.Text) 
If r Then 

MessageBox. Show (" xad! exe ") 
Else 

MessageBox: Show (asl خاظمغ‎ ") 
End I£ 





مع استمراري فى البحث فى هدا المو قع و Cite‏ خدمه آخری جديرة بالملاحظه و شانعه الاستخدام 
وهى الخاصة بالتعرف على الطقس والمناخ و خلاقه. تجد الخدمة هنا: 
رابط هي 

http://www.webservicex.net/globalweather.asmx 
المثال الأول لاستخدام هذه الخدمة هي معرفة المدن الموجودة في دوله معینه باستخدام‎ 


GetCitiesByCountry‏ مثلا هذا الكود: 
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net.webservicex.wwwl.GlobalWeather m = new 
WindowsApplicationl.net.webservicex.wwwl.GlobalWeather(); 
MessageBox.Show(m.GetCitiesByCountry ("Egypt")); 


MessageBox. Show ("Welcome") 

Dim m As Net.webservicex.wwwl.GlobalWeather = New 
WindowsApplicationl.net.webservicex.wwwl.GlobalWeather() 
MessageBox. Show (m.GetCitiesByCountry ("Egypt")) 


يعرض LF‏ أسماء المدن الکبری في مصر» جرب OW!‏ عمل TextBox‏ وجرب الدول التي تريد 


معرفة المدن الكبرى لها... 





الدالة الأخرى هي معرفة حالة الطقس باستخدام GetWeather‏ » بالشكل التالي مثلا: 


net.webservicex.wwwl.GlobalWeather m = new 
WindowsApplicationl.net.webservicex.wwwl.GlobalWeather(); 
MessageBox.Show(m.GetWeather("Asyut", "Egypt")); 


VB.NET 


Dim m As net.webservicex.wwwl.GlobalWeather = New 
WindowsApplicationl.net.webservicex.wwwl.GlobalWeather() 
MessageBox.Show(m.GetWeather("Asyut", "Egypt")) 


والآن بقي أن أشير إلى أن اشهر الخدمات الموجودة على النت هي تلك المتعلقة بالتحویلات 


المالیه 60 Co‏ تحدث قیم هذه الخدمات قوریا Com‏ یمکنک استخدامها فى برنامحک 9 da‏ 





العملات بدلا من الاعتماد على المعادلات الحالية والتي تتغیر باستمرار. 


هناك آیضا خدمات أكثر تعقیدا مثل الاتصال بالبنوك والدفع عن طریق البرنامج باستخدام خدمة 


یقدمها الینک و خلافه . وهی قصة طويلة لکنها تسیر فى اتجاه مشابه. 


Las‏ هناك خدمة RSS‏ وهي تسیر في اتجاه مشابه ۰ خدمة آخری منتشرة وهي خدمة التعرف على 


ale‏ الطقس . المناخ ۰ و خصاتص الدول والعلم والعمله والسکان و »4851 نوع آخر وهو التعرف 
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على معلومات ISPN‏ من الشركة حيث قد يفيدك في بعض البرامج « آیضا ستجد خدمات ویب لكل 


2. مقدمة إلى WCE‏ 


واحدة من التقنيات الجديدة التى واكبت ظهور 3.0 .NET‏ كانت تقنية Windows‏ 


APIS وهي مجموعة من الدوال‎ WCF والتي يرمز لها اختصنارا‎ Communication Foundation 


التي تختص بعالم الاتصال وال web services‏ وال remote access‏ و خلافه. 


النقطة التي نتحدث عنها وستكون شغلنا الشاغل هنا هو كيفية التخاطب بين برنامجين على 
جهازين X‏ و Ge y‏ في Co X=Y Alle‏ تسمح UJ‏ هذه العملية يعمل التطبيقات على الشبكات 
والوصول للأجهزة عن يعد وبرامج المحادثة ونقل الملفات ... الخ من التطبيقات التي تميز عصر 
الإنترنت الحالي. 


هناك الکثیر من التقنيات التي ظهرت لد عمک كمبر مج في تطوير برامج من هذه النوعية » حيث 
وفرت لك مجموعة من الحلول لتسهیل التعامل مع ال APIS‏ الخاصة بعملیات الشبکات و خلافه 
مثل MSMQ . DCOM‏ ©« ومع ظهور تقنية net‏ تم تقدیم مجال الاسماء 
System.Runtime.Remoting‏ الخاصة Jie‏ هذه العملیات ۰ هناك Lnd‏ تقنية Web XML‏ 
۹ تمکنک هذه التقنیات من تسهیل عملیات عمل نظم 46554 بصورة كبيرة ce‏ > وان 
كنت لا ترغب في العمل في هذا المستوی العام فیمکنک التخصیص زيادة والعثور على خیارات 
اكبر واوسع مقابل زيادة بسيطة في نسبة التعقيد عن طريق استخدام Named Pipes, Sockets,‏ 
and P2P‏ وهي الاشهر Lad‏ بين مستخدمین ال Met‏ على الأقل في و طننا العر بي ترا لعدم شهرة 
التقنیات السابقة - برغم انها توفر الکثیر من الوقت فعلیاً » یمکنک البدء من الدرس السابق 
کمنال . 

كانت هذه الحیاة لک كمبرمج net‏ قبل عالم WCF‏ في الدرس القادم سنبداً بالتعرف على 


طبيعة هده التقنية. 
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2. 1. البدابة مع ال WCE‏ 


بعد تشغیلک لل 2008 Visual Studio‏ قم باختیار نوع المشرو ¢ WCF‏ ثم WCF Service‏ 
۷ بالشکل التالي مثلا: 


Preject types Templates NET Frameworks > (CJE 
Visual C£ Visual Studio installed templates 


Windows 

"e di d dà d 
Smart Device Sequential State Ee. 3 WCF Service 
Office Workflo... Machina — Service Li... Library 


Database 
Reporting My Templates 


۳ z 


Workflow search 
Database Projects Online Te... 
Other Languages 
Distributed Systems 
Other Project Types 
Test Projects 


A project for creating a WCF service class library (dll) (NET Framework 3.5) 


Name: WefSereiceLibraryl 




















Location: CiUsers ahmed Documents Visual Studio 2008 Projects 


Solution Marve: WefSeniceLibraryl [v] Create directory for solution 


[canca 





الصور ô‏ 210 1. اضافة مشرو ع جدید WCF‏ 


هناك خیارات آخری تقدمها لک WCF‏ بحیث یمکنک تطبیقها مع خدمة RSS‏ أو تقنية WWF‏ 
افتر Loca!‏ » هناك ایضا ضمن اختیارات انشاء Web Site‏ جدید تجد WCF Service‏ و لکن ليس هذا هو 
مو ضو Lie‏ الآن. 

الآن تجد نفسک قد قمت افتراضیا بانشاء ثلاث ملفات assembly‏ هی: 


WCF Service - 
WCF Service host - 


Dol 


الباب العسرون WCF‏ 


WCF client -‏ 
و للریط لا بد من توافر المعلو مات التلاث التالية: 


:Address -‏ هو يحدد العنوان الذي يتم الاتصال به. 


(à ,la: Binding -‏ الربط. 


:Contract -‏ صف المهام التي يتم تنفید‌ها من خلال WCF‏ 


2. 2. شكل g‏ محتويات ال Address‏ 


النقطة الأولى من معلومات WCE‏ هى العنوان الذي ستتصل به › له الصيغة العامة التالية: 


رابط $9 

scheme://«MachineName»[:Port]/Path 
83 92» تحدد البرو تو کول الذي سوف تعمل من خلاله ما بين البرو 93 کولات المو‎ Scheme of ec 
تحدد المکان الذي ستتصل به‎ 6 
› هو المنفن الذي سیتم الاتصال من خلاله‎ Port 
في الجهاز الذي تود الاتصال به.‎ Services وهو مسار ال‎ 0 ie 
هذا على سبیل المثال:‎ 
رابط هج‎ 

net.tcp://localhost:8080/MyWCFService 
تجربه بسیطه:‎ 
:IServicel.cs للدالة في‎ cay pad جديدة » بعد انشاء‌ها قم باضافة‎ WCF Liabrary قم بانشاء‎ 


CH 


[Dperetiontontract.] 
inr Add(zHub x, ann y); 


<OperationContract ()> 
Private Function Add(ByVal x As Integer, ByVal y As Integer) As Integer 
End Function 





ومن ثم فى Servicel.cs‏ قم بكتابة الدالة التالية: 
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۳۱۵ int Add(int x, int y) 
{ 


POLUEM X t y; 


} 


VB.NET 


Public Function Add(ByVal x As Integer, ByVal y As Integer) As Integer 
Return x + y 
End Function 





وفقط . قم يعمل RUN‏ وقم بتجریتها من خلال WCF Test Client‏ بالشکل التالي مثلا »> بعد كتاية 


رقمین قم بالضغط على Invoke‏ لتجرية الحل. 
أليس هذا آسهل بكثير من الدرس السایق حول s Web Services‏ 


ليس هذا فقط. بل Jalu‏ لک هذه المقارنه من موقع مایکر 9 سوفت بين هاتين التقنیتین: 








3500 ع‎ = 
h 
j 
9 3000 
u 
E 
h wm WSE 2.0 
P^ 2500 | ewer 
u 
t mWCr (Message Credentials} 

ops/sec 

2000 - 

1509 

1000 

SO 7 





Message with 1 Object Message with 10 Objects Message with 100 Objects 


الصورة 20. 2. سرعة الأداء باستخدام تقنية ال WCF‏ 
13 كنت تود استعراض كافة آو de‏ المقارنة یمکنک الاطلاع علیها عبر الرابط التالي : 


S9 رابط‎ 


http://msdn.microsoft.com/en-us/library/bb310550.aspx 
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نستعرض هنا سوية بعض النقاط الاضافية التی لم نستعر ضها خلال سير الدروس قبل الانتقال إلى 


عالم تطویر المواقع . 


Debugging - التنقید‎ . 1 


أثناء عملت على البر نامج تظهر لک آأحیانا عدة أخطاء تشيب رسڪ » حيث لا تکون قادرا 
على معرفة المکان الذي ظهر منه الخطأ تحدیدا + of‏ آنک تجد فجاة قیمة متغیر مختلفة عن 


القيمة التي كنت تتوقعها » من هنا ظهرت فائدة ال Debug‏ لتتبع أخطائك بصورة أفضل . 
BreakPoints‏ 


نقاط يتم وضعها على أماكن معينة من الکود Coca‏ یتوقف التنفیند فور الوصول الیها 
ويعيدك إلى ال Visual Studio‏ حيث یمکنک مراقبة قيم المتغیرات و استعراضها والتأكد من 
خلو‌ها من المشاحکل ۰ یمکنک اعادة استتناف التنفين سطر بسطر بالضغط على ۴11 أو مواصلة 


التنفين للنهاية بالضخط على FS‏ . 


ss‏ اضافة BreakPoint‏ بالضغط على F9‏ فى السطر المحدد » أو الضغط على جانب 


الکود بالشکل التالي متلا : 


Doy 


الباب الحادی و العشرون نقاط متقدمة 


| Ai WindewtFormzApplicationll. Form? > o Fond Load(object sender Eeentárgt e) = 
# 


index += textBoxl.lexrt.Lengzh; 
1 


HessageBox.Show(" S LALE£J! الاتتهاة قن نلوبن‎ ai)rt/ 
1 


private void timeri Tick(object sender, EventArgs له‎ 
| 

/l/labell.Text = DareTime.Now.Hour  ":" + DateTime.Now.Minute + "i" e DateTime.Now. Second: 
۱ 


Private int ReadDartaSomeWhere(il 


Féturn SO; a 


private void Form? Load([cbject sender, EventArgs €) 


int summ], سمو‎ 
for (int à = Or í € 10r i++) 
1 














x = ReadDataSomeWhere():; 
9 
ها‎ Delete Breakpoint 

g Disable Breakpoint aBox.Show(sum.ToSrtring(i)): 
] 
Condition... 
Hi Count... 





Filter... | int i 
When Fit. 





الصورة 21. 1. اضافة نقطة توقف .BreakPoint‏ 


والآن ۰ كما تری فى مثالنا السابق نقوم بقراءة عدة بیانات C‏ الا آنی افاجاً Legs‏ بکون الناتج 
سالب برغم ان العملية ضرب رغم ان توقعي ان كل المدخلات لابد أن تکون موجبة وبقیم كبيرة: 
يا ترى ما هى المشكلة ؟؟؟ 


من اجل هذا وضعت هذه النقطه للمراقبة)2» وقمت بالبدء يتشغيل البرنامج ومن ثم التنقل بين 
الخطوة والآخرى .F11‏ 


+e 


سنجد ان البرنامج سيقوم مباشرءة بالنو wes‏ وقت الوصول إلى هذا السطر © و سیمکنک )495 
المتغیر ات كلها فى هذه الأثناء بالشکل التالی : 


558 


. الباب الحادی و gett‏ — — — — — — — فقاط متقدمة _ 











return 50; 
} 


private void Form2 Load(object sender, Eventargs e) 


{ 

int sum=1,x=0; 

for (int i = 0; i < 10; i++) 

( 

x = ReadDactaSomeWhere ():; 

| 

MessageBox,.Show(sum.ToStreing()): 
} 























الصورة 21. 2. متابعة aud‏ المتغیرات المحلية. 


الآن استمر في الخطوات c‏ بعد 6 خطوات تری ماذا حدث ؟ 


Do 


الباب الحادی و العشرون نقاط متقدمة 


of‏ الآن ابتدات فى تخیل سبب المشكلة ۰ فعلاً عندما يصل الرقم لحد ما يبدأ الرقم يتحول إلى 
سالب » المتغیر لم يعد پستوعب رقما ابر من هذا . 
o3‏ الحل بتعریف ناتج Double a.a! Atlee‏ ۰ انتهت العملية و آمکنک الحصول على الناتح 


المطلو تب > 


9.765625E+16 





هذه هی الفاندة التى نحنیها من alec‏ ال Debug‏ > في مشاریعک الكبيرة سیکون الموضو ع أكثر 
صعو به و تعقیدا وریما تحناج لمراقبه قيم المتغيرات بين عدة دوال > لذا سیکون الحل الأمثل لک 


بالاعتماد على هذه الأدوات . 


ليس هذا فقط . بل في هذه المر dle‏ يمكن تغيير قيم المتغيرات » لهدف ما وجدت انڪ تحناج إليه 


حك 35855 siiis‏ عالشعل. التاتى Nr‏ : 


privace void Form: Load([object sender, EVéEntarg 
í 

double sum*-1,x*)0; 

for (int i = 0; i « 10; i++) 





55555 | 


nigdotcringí)): 


الصورة 21. 3. تغییر قیم المتغیرات آثناء عملية التنقیح. 


أيضا کل المتغیرات والفئات المو جودة مراقبة بالشکل التالی : 
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| Value 
| fWindowsFormsApplicaton 11.Form2, Text: Forma} 
y @ base _{WindowsFormsAppicaton 11. Form2, Text: Form2) 
E ActiveContral null 






















































































الصورة 21. 4. مراقبة المتغیرات المحلية. 
ولو رغبت فى مراقبة متغیر بعینه قیمکنک اختیار اضافة مراقبة خاصة Add Watch‏ بالشکل 


التالی : 


مه 

















Copy‏ ود 
al Edit Value mi‏ 
Add Watch ۱ ۲ -—‏ لت d‏ 
w Select AB |‏ 
g Head wal = 1005‏ 
i texadeximal Display : er madppicabon 11. Form2, Text: Form2)‏ 


۱۳ | Sheers Threads in Source m Eventarga) 


Collapse Parent 


الصورة 21. 5. مراقبة المتغیرات المحلية. 


: مراقبه خاصه به و حده بالشکل النالی‎ 843b سیقوم بفتح‎ Co 


| HMemmagchcxkeEhew[mum.IoStringükhr 


ae Mice‏ کو 1 ع بسچ و قوف وو ا 





Ganen Fun gE} 

2 t 
domum Lo رسد‎ 
en 55.0 dex ibur 


- í اله ما اج‎ Stack مسا‎ Vie 


Watch ال‎ saab .6 .21 الصورة‎ 
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2 تجهیز البرامح 21jgill‏ 


بعد ان نکون قد انتهینا من برامجنا 60 نحن OF!‏ بحاجة لنقلها إلى المستخدم . ولما كان 
جهاز المستخدم قد لا يحتوي على كافة المکونات اللازمة نا تلعمل نقوم OY!‏ بعمل Publish‏ 
للبرنامج على شکل Setup‏ ليقوم المستخدم بتشغیله مباشرة ۰ يتم ذلك من القائمة Build-‏ 
Publish‏ . 


- بداية قم بتحدید المکان الذي تود النشر إليه » لیکن C: Nahmed‏ مثلا . 


- فى الخطوة At!‏ قم يتحديد المکان الذي تود للمستخدمین تحمیل نسخه البر نامج منه › 
ستختار CD-DVD‏ . 


- إذا كنت ترغب فى أن يبحث البرنامج عن التحديثات فى مكان معين فقم بذلك وإلا تجاهل هذه 
الخطوة . 


. Finish اضغط‎ - 


- ستجد كل شيء تم تجهيزه » یمکنک عمل بعض التغييرات عن طريق خيارات المشروع ثم 


. لتضمين ملفات اضافية أو خلافه‎ Mie. Publish 
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Application 
Build 
Build Events Publeth Location 

Publething Folder Location (web site, ftp server, or file path) 
Debug ال خسف اج‎ - 
Resources Installation Folder URL (if different than above): 
Serge es 3 
Settings Install Mode and Settings. 

- ation i available ime anhy pplicabon Files... 

Remo NIE The application is available online only Applic 

9 The application is available offline as well (Lyanchable from Start menu) Prerequisites... 
Signing 

Update... 

Secunty pd 
Publish Options... 
Code Analysis Publrh Version 

Major: Miner: Build: نه را‎ 

1 0 ü 1 

Automatically increment reviion with each publish‏ يب 

Publish Wizard... Publzth Now 





الصورة 21. خصاتص المشر و ع/ تبويب النشر. 


Owl -‏ اصبح برنامجت جاهزا det‏ قم بالضغط على Setup‏ وسوف يتم تحميل البرنامج في 
Files‏ و یمکنک التعامل das‏ كبر نامج Gale‏ جدا . 


- یمکنک استخدام آدوات آکثر تقدما من أجل هذه الموضوع مثل installshield‏ و setup‏ 
factory‏ أيضا یمکنک الاستفادة من الخصائص المتقدمة التی توفرها لک مشروعات ال Setup‏ 
فى الفیجوال ستودیو من القائمة New Project‏ حیث ستکون قادرا على التحکم فى سير وشاشات 


Gromit! alec‏ والاتفاقیات و خلافه: 


563 


. الباب الحادی و h—  — — gett‏ — فقاط متقدمة _ 


| New Project ۱ i m 











Project types: Templates: NET Framework 3.5 M E 3 
Web ^ Visual Studio installed templates | 
Smart Denge (— > = 1 
ofa 2 € a له فنا‎ 8 
Database Setup Project Web Setup Merge Setup Wizard. CAB Project. Smart Device | | 
Reporting Project Miodu. CAB Project | 
Test 


WCE My Templates 


Workflow D | 


Database Projects € 
Other Languages Search 
5 Online Te... 
Distributed System: 
a Other Project Types 

Setup and Deployment 

Database 

Extensibility 

Visual Studio Solutions - 


Create a Windows Installer project to which files can be added 


Name: Setupl 

Location: CAUsers Ahmed Documents Visual Studio 2008 Projects - Browse... 
— Create new Solution > | |) Create directory for solution 

Selution Name Setupl 








الصورة 21. 8. اضافة مشروع تسطیب. 


CH vs VB.net .3 


لو لاحظت طوال فترة دروسنا اعتمادنا بشکل متوازي على لغتي CH‏ و Lod. Vb.net‏ هي 
الفوارق of‏ آوجه الشبه بينهما . لنعد أولاً إلى نقطة البداية لانطلاق ال Met‏ 


في بداية ظهور مبادئ ال net‏ كانت CH‏ هي اللغة المعتمدة ۰ ولما كانت Sale‏ و سوفت 
تمتلک ARI‏ برمجة ذات سوق واسع في ذلك الوقت وهي قیجوال بيست . رأت مایکروسوفت Wi‏ 
تخسر مبرمجیها بتطویر AAT‏ موازية شبيهه في ال Syntax‏ مع الفیجوال بیسک و لکنها تطبق 
مبادئ ال net‏ » من هنا جاءت VB.net‏ والتي تعتبر نسخة آخری من ال CH‏ و لکن بأسلوب ال e VB‏ 


وهذا هو الشبه الو حید بینها وبين اللغة القديمة » اسلوب الكتابة فقط ليس إلا . 
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ولذا إن حاو Lit‏ التحدث عن الشبه بين CH‏ و VB.net‏ فلن نستطیع استیفاءه c‏ الأسهل هنا هو 
سرد الاختلافات فهما في النهاية Aad‏ واحدة c‏ سنبداً بسرد الفروقات في آسلوب الکتابه . 
Ai lo : LOMA -‏ تعریف المتغیرات : 


CH 


WE Z? 
ClassName x = new ClassName ();} 


VB.NET 


Dim X As Integer 
Dim X As ClassName = New ClassName () 





لعدم المساواة Saa‏ من >< 


- رابعاً : تعتمد VB.net Aat‏ على جمل End Jis‏ و تستخدمها في الاجراءات والفنات وغیرها Wie‏ : 
VB.NET‏ 


if x-1 Then 
End if 





وكذلك في الفثات والاجراءات أيضا : 


using System; 
namespace MyNameSpace 
{ 
class HelloWorld 
{ 


statio void Main (String). arcs) 


{ 


System. ConsolS.Writeline ("Hel loworld”); 
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VB.NET 


Imports System 
Namespace MyNameSpace 
Class HelloWorld 
'Entry point which delegates to C-style main 
Private Function 
Public Overloads Shared Sub Main() 


Main(System.Environment.GetCommandLineArgs()) 
End Sub 
Overloads Shared Sub Main(ByVal args() As String) 
System.Console.WriteLine("Hello World") 
End Sub "Main 
End Class 'HelloWorld 
End Namespace 'MyNameSpace 


= تا میت > في فيجوال بيسڪ Sow NET‏ تستخدم And,Or,Not,OrElSe‏ بینما في #C‏ 





سوف تستخدم && | | ۱ 
TM Š‏ : عند جمع النصوص استخدم & في VB.net‏ ولكن في C#H‏ استخدم "E‏ 
#C elseif: PEN z‏ هي ElseIf‏ في VB.net‏ 


- ثامنا : كما اسلفنا في موضوع End‏ ۰ ففي الحلقات التکر ارية تعتمد CH‏ على الأقواس آیضا : 


Tor (10t i م‎ 1 <= 10; i += 2) 


System.Console.WriteLine (1); 
System.Console.WriteLine(1i*10); 





وفي حالة کونها سطر واحد یمکن الاستغناء عن الأقواس : 


for (int i = 2; 1 <= 10; 1 += 2) 
System.Console.WriteLine (1); 





آما فى VB.net‏ فهی تأخن شکلا مو حدا : 


VB.NET 


For c = 2 To 10 Step 2 


System.Console.WriteLine (c) 
Next 
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ونفس الأمر بالنسبة لباقی الحلقات التکرارية While‏ و for each‏ و خلافه . 
* تاسعا : بالنسبة للمصفوفات و خلافه پستخدم القوس ][ بدلا من () فى VB.net‏ . 
inci] numa = { l; 2. 3.4‏ 


tor (ARE X OF d. «nums.Lenguh; a4) 
Console.WriteLine(nums[i]l); 


Dim nums() As Integer = (1, 2, 3} 

For i As Integer = 0 To nums.Length - 1 
Console.WriteLine(nums(i)) 

Next 





ot -‏ تحد تعلیقا Comment‏ لأكثر من سطر في VB.net‏ مثل /* */ في CH‏ و کذلک XML‏ 


. على الرغم من آنني قرأت انها قد تکون مدعومة في الاصدارة القادمة‎ Comments 
للحصول على باقي القسمة.‎ VB.net في‎ Mod من‎ You 5 سوف تستخدم العلامة المتوية‎ FC فى‎ - 


- لن تدعم لک VB.net‏ استخدام Bitwise Operations‏ في Assignment ata‏ على عکس ال CH‏ 


حیث تتیح لک ذلك . 


لن اطیل لانک - كما لاحظت Gas‏ - فان هذه الفرو قات Y‏ تتعدی کو نها فر و قات لغویه ۰ و هي 
فرو OL‏ غير ذات قيمة بالمرة « ساحیلک على رابط لعرضها كاملة فى نهاية الدرس ۰ و لکن OW‏ 


لنحاول استعر اض النقاط غير تلك المهتمة بآسلوب الكتاية . 


- أول تلك الفرو قات هی case sensitive‏ ۰ حیث أنه فى VB.net‏ فان Ahmed‏ هی نفسها ahmed‏ 


وهو ما لا يوجد في أي لغة في العالم سوی BASIC‏ » ولا آستطیع أن أحدد Lond‏ إذا كان هذا ميزة ei‏ 


parare 


ممیزات في VB.net‏ - باختصار - 
- دعم ال optional parameters‏ موجود في VB.net‏ و لیس 99 392 في FC‏ . 


with -‏ موجود في VB.net‏ وليس موجود في 4C‏ . 
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Catch ... When -‏ موجودة في VB.net‏ وهي تتیح نظاماً أفضل لفلترة الأخطاء 


- یقوم Compile Joa: VB.net‏ تلکود في BackGround‏ . وهذه ميزة في التطبیقات الصغیر 8 


ولکنها عيب في التطبیقات الكبيرة حيث تلاحظ بطء الفیجوال ستودیو . 

ممیزات في CH‏ - اختصار - : 

- يدعم FC‏ ما يعرف Unsigned types aul‏ ۰ و هو ما یمکنک استخدامه أيضاً في VB.net‏ و لکنه 
شین خد اسان uito‏ 

- الميزة الأقوى في FC‏ والتي لا تتوفر في VB.net‏ هي السماح باستخدام 


unsafe‏ أو unmaneged code‏ ما يتيح لك العمل على Pointers‏ وخلافه » ما يفتح لك آفاقا 


واسعة في عدة مجالات مثل معالجة الصور image processing‏ وخلافه . 


ولعل هذه الميزة مما جعل FC‏ قريبة من C‏ من ناحية تعاملها مع كود منخفض المستوى LOW‏ 
Level Code‏ وهو ما يجعل سى شارب الاختيار الأمثل للكثيرين . 


- لن تجد increment‏ و decrement‏ فى Gus VB.net‏ ستتضطر إلى كتابة كود بالشكل التالى : 





بينما في CH‏ يمكنك القيام بذلك بالشكل التالي : 


2 





- یمکنک أن تحد الخاصية sizeof‏ فى CH‏ بینما ot‏ تجدها فى VB.net‏ 


مه 


كان هذا موجزا لآو ضح الاختلافات والتی ستتعامل معها (oes‏ > وكما لاحظت فهی فى أغلبها 


ليست ذات قيمه كبيرة . 
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فى النهاية : ماذا آختار ٩‏ 


اذا كنت منتقلا من 6.0 VB‏ فعلیک ب VB.net‏ أما اذا كانت لديك خبرة ب C/C++/Java‏ فعلیک 
ب FC‏ واذا كنت جدیدا في مجال البرمجة فأنت حر في اختیار ما پناسبک وان كنت آرشح لڪ 


. كر آي شخصی فقط‎ CH 
: ضیح كامل للفروقات‎ git هذا الملف من موقع مایکر و سوفت‎ 


http://support.microsoft.com/kb/308470 


Mono إلى‎ Agaàg .4 


في عالم الجافا تعتمد على VM‏ والذي یجعلها قابلة للعمل على اي مکان عليه VM‏ حتی لو 
كان 4-935 او فرن مایکر و یف c‏ في المقایل يسبب هذا المو 942 € بعض البطء فى تنفید الحافا 
و لکنه على كل حال من آهم ممیزات الجافا. 
وفى العالم المقایل عالم Microsoft‏ كانت منتجات Visual Basic‏ و CH‏ أو MFC‏ غير قابلة للعمل 
ولکن مع الوقت تم تقدم طرق و آدوات لتسمح لبرامجک بالعمل على نظم تشغیل متعددة » آشهر ها 
هو Mono‏ وهو موضو ع درسنا الحالي. 
في الواقع Qu»‏ اللحظة لم آجد مصدر يفيد MONO 5b‏ اصبحت متوافقة مع2008 ..net‏ و لکنها 
متوافقة مع 2.0 net‏ سواء على شکل ASP.net‏ أو برامج تطبيقية أو قواعد بیانات و خلافه ۰ ویر غم 
ذلك و جدت عدة رو ابط للمحاو OF‏ الحالية للتوافق تفید بو صو لهم إلى تطبیق آغلب نقاطها - لیس 
كلها - ۰ على كل یمکنک الدخول على هذا الر ابط لمتايعة الاخار: 


http://www.mono-project.com/plans 
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من الموقع السابق قم بعمل Download‏ لل Mono‏ ۰ و خلال مراحل التحمیل قم باختیار التقنیات 


التي ترغب ل Mono‏ بالعمل معها. 


المر Ale‏ الثانية هی بتشغیل ال Command Line‏ الخاص بال Mono‏ والذي ستجده فى قائمة 


البرامج » ستجد من ضمن الآدوات المتاحة لک الأآدوات التالية: 
65 كو مبایلر للسي شارب 

60 كومبايلر للفیجوال بیسک 

2 هو مبایلر CILS‏ 


کل واحدة منهم - السي شارب كمثال - يتم التعامل معها كما قمنا بالتعامل سابقا مع ال Visual‏ 
Studio Command Line‏ تانق , الفارق الوحید بين SMCS‏ و MCS‏ هو gmCSoi‏ يدعم التقنیات 


الجديدة المو جودة مع عالم2.0 Met‏ 


Command ۱106۱ بفتح‎ gä: ER Gale CH يحتوي على كود‎ sample.Ccs aul لنفتر 25( ملف‎ 


الخاص ب Mono‏ ثم اكتب الأمر التالي: 


Shell | کود‎ 





gmcs /target:library /out:Sample.dll Sample.cs 


و فقط ! 
الآن اصبحت لديك مکتبة قابلة للعمل على اي نظام تشغیل ۰ یمکنک Las exe et build ae‏ 


و تشغیلها غبر MONO‏ فی. لینکس مثلا... 


على اللینکس یمکنک فتح مشر و عک باستعمال MonoDevelop‏ كما على VISUAL STUDIOS!‏ : 


570 


— الباب الحادی و  — gett‏ — — — — 2 فقاط متقدمة _ 


€ ^pplications Places System od 
MonoDevelop 


File Edit View Run Search Tools Window Help 


New File | New Solution 


tz Help Template 


= E o 


Console Project Empty Project [SETS siete: 
ILAsm — 


MonoDevelop ca E 


Glade# 2.0 Gnome# Gnome# 2.0 
Project Project Project 


VBNet —— 
E 


Gtk# Project Gtk# 2.0 


amm n m حل يس‎ 


Nernerle 


a Glade# project with one window and button 


b 
p 
۳ 
b 
b 
b 
b 
b 


Location 





Name: testApp 


Location: |/home/ubuntu/Deskto p | Browse 3 | 


| Files Clas . LM 
GCE TT 


4| Create seperate Solution subdirectory 





Project will be saved at Jhome/ubuntu/Desktop/testApp | 





الصورة 21. 9. اضافة مشروع CH‏ جدید في ال MonoDevelop‏ على اللینکس. 


5. برمحة ajaaill‏ الكفية من خلال ال net‏ 


آخر مواضیعنا المتقدمة قبل الولوج لعالم الویب هو برمجة الأجهزة المحمولة ‏ و لکن قبل CANA‏ 
ما هی 1g S‏ 3 الكفية ٩ Pocket PC‏ 


هي مجموعة من أجهزة الهو اتف المتنقله تتميز باستخدام نظام تشغیل audio‏ اضافة إلى 
هاردویر یمکنها من تشغیل مهام هذا النظام 6 ویشکل نظاما التشغیل Windows Mobile‏ و نظام 


571 


الباب الحادی و العشرون نقاط متقدمة 


التشغیل سیمبان اضافة Windows CE 2003 alas‏ وما قبله آشهر نظم التشغیل التي تعمل على 


الأجهزة الكفية . 


Lai‏ على صعيد الهاردوير فالأجهزة الكفية لا تمتلكت هارد دیسک Hard Disk‏ بالمعنى 
المشهور ۰ لكن Laas‏ منها يستخدم جزء من ال RAM‏ کهارد ديسك لا يتم مسح البيانات من عليه 
بعد Sale!‏ تشغيل الجهاز ‏ وهناك أنوع آخری تستخدم ROM‏ لتخزين البرامج ونظام التشغيل وما 
شابه . 


وماذا يمكنني عمله للأجهزة الكفية Pocket PC‏ من خلال s net‏ 


تستطيع من خلال dad‏ البرمجة اضافة برامج تستخدم آجزاء معينة من الجهاز لتحقيق 
خدمات للمستخدم سواء أكان استخدام بسيط (استخدام الذاكرة) لتخزين البرامج وتنفيذها 
وتخزين قواعد البيانات ۰ أو كان الأمر يختص باستخدام الكاميرا Mie‏ والأجهزة الصوتية في 
الجهاز . 


S ju) كيف‎ 

. بساطة » سنقوم بعمل برنامج يظهر رسالة ترحيب عن الضغط على زر آمر‎ JS 
. Visual Studio .net قم بتشغيل الفيجوال ستوديو‎ -1 

2- قم باختيار VB‏ أو اللغة التي تود البرمجة من خلالها . 


3- قم باختيار Smart Device‏ » ومن ثم قم باختيار 2003 Pocket PC‏ أو 2003 Smartphone‏ أو 


Windows CE 0‏ حسب الجهاز الذي تود العمل عليه . 
4- بعد اختيار القسم المناسب قم باختیار Device Application‏ . 


5- قم بسحب Button‏ من ال#دوات c‏ وقم بكتابة هذا الكود فى داخله 


CH 


MessageBox.Show("Welcome..."); 





2172 


— الباب الحادی و à— | gett‏ — — — — — فقاط متقدمة _ 


VB.NET 


MessageBox.Show("Welcome...") 
› الذي ترغب فيه حسب الجهاز الذي تود العمل عليه‎ deploy اختار نوع ال‎ F5 قم بالضغط على‎ -6 


أو قم باختیار نوع يعمل على ال PC‏ للتجربة فقط . 





7 - مبروك , لقد قمت بعمل برنامج الأول » يمكنك أيضا نقل الملف التنفيذي 6*6 إلى الجهاز 
و تشغیله مباشرة . لا يد فى هذه الحالة ان یکون .het compact framework‏ موجودا على الجهاز 


الکفی Pocket PC‏ . 
8- المهام الأساسية — غير تلك التي تعودت علیها في البر مجة التقليدية هي تلك المختصة 


بالتعامل مع بنية الجهاز و خلافه ۰ فمثلا لتحدید اتجاه الشاشة في الأجهزة التي یمکن أن تنقلب 


فیها الشاشة : 


ڪو د | C‏ 


H 
SystemSettings.ScreenOrientation = ScreenOrientation.Angle90; 


VB.NET ۱ foras 


SystemSettings.ScreenOrientation = ScreenOrientation.Angle90; 
: Touch Keyboard و لتمکین‎ 





ڪو د C‏ 


# 
InputPanell.Enabled = true; 


VB.NET | ees 
InputPanell.Enabled = True 


و Wia‏ لعمل Reset‏ للجهاز بعد استیراد coredil.dil‏ : 
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private int CTL CODE(int DeviceType, int Func, int Method, int Access) 
{ 

return (DeviceType << 16) | (Access << 14) | (Func << 2) | Method; 
) 
private int ResetPocketPC )( 
{ 

const int FILE DEVICE HAL = 

const int METHOD BUFFERED 

const int ELLE ANY- ACCESS = 

int bytesReturned = 0; 

int IOCIL.HAL REBOOT: 

IOCIL HAL REBOOT = CIL CODE (ELLE DEVICE. HAL, l5, METHOD BUFFERED; 
ELLE ANT ACCHOS); 

return KernelToControltrlOCIL-HAL.RBEBOOT, lntPtr.Zero, 0, LntPtr.Zero, 0, 
bytesReturned); 
) 


VB.NET 


Private Function CTL CODE(ByVal DeviceType As Integer, ByVal Func As Integer, 
ByVal Method As Integer, ByVal Access As Integer) As Integer 

Return (DeviceType «« 16) Or (Access «« 14) Or (Func «« 2) Or Method 
End. Function 
Private Function ResetPocketPC() As Integer 

Const FILE DEVICE HAL As Integer - &H101 

Const METHOD BUFFERED As Integer = 0 

Const FILE ANY ACCESS As Integer 0 

Dim bytesReturned As Integer = 0 

Dim IOCTL HAL REBOOT As Integer 

IOCITL HAL REBOOT: = CTL CODRi(ELLE DEVICE - HAL, 15, METHOD BUFFERED; 
FILE ANY ACCESS) 

Return KernelloControl(IOCIL HAL REBOOT, InmtPtr.Zero, 0; IntPtr. Zero, U; 
bytesReturned) 
End Function 





كيف احمل البرمجة من خلال ٩ net‏ 


بكل تأكيد فان البرامج السابقة يعد من آبسط الصیغ الممکنة لبرنامج يعمل على Lous Pocket PC‏ 


ستتضطر لاستخدام التخزین في البرامج الجدية والتعامل مع قواعد البیانات حیث یمکنک استخدام 


الملفات النصية کقواعد بیانات . أو ملفات XML‏ وحتی قواعد البیانات من نوع SQL Server CE‏ . 


یمکنک الدخول آیضا مباشرة على هذا الرابط من مایکره سوفت لتبدء منه : 


رابط هج 


http://msdn2.microsoft. com/en-us/library/aa458721.aspx 
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1 . مقدمة إلى تطوير المواقه 


فيما مضی من الدروس ۰ كنا نتحدث فى عالم ال ‘Desktop Applications, Console‏ 
و خلال هذه المراحل كنا نعنمد على و جود jLg‏ واحد للتنفيد » و (Q9‏ فى Ale‏ و جود شبكة فقد 
كان wes!‏ یعنمد على عملیات ارسال واستقبال بیانات بين الجهازین او المشار که في المصادر او 
الاتصال ب web service‏ كما رأينا › اما مع عالم ال ASP.net‏ او عالم server side languagesJ!‏ 
عموما فالو ضع مختلف نسبیا » و لذا قبل البداية نحب ان نتعرف على انواع مواقع الانترنت: 
- مواقع ثابتة : هذه المواقع عبارة عن مجموعة من Glarus git!‏ باستخدام (HTML‏ یمکن استخدام 
صور و قلاشات و خلاقه و لکن لا یو جد اي نوع من انواع المعالحه في هذا المو قع. 
- موقع دینامیکیه عند العمیل : هذا النوع من المواقع يتمتع ببعض انواع المعالجه ولکنها نظل في 
جانب العمیل فقط . يتم فى هذه المواقع استخدام Scripts‏ مثل JavaScript‏ و VBScript‏ ۰ لکن 
الصفحه التى تراها امامت تعمل عندك انت فقط. 
- مواقع دينامكية : هذا النوع يتم عمل معالجة لبياناته في السیر فر و تحصل انت فقط على الناتج 
الذي يمكن ان یکون من النوع الأول والثاني ۰ في هذه الحالة یسمی تطبیق انترنت ولیس موقع 
انتر نت. 
مثال: 
صفحة يريدك الالكترونى التى تراها امامت هی صفحة من النوع الثانی Coe‏ تحتوي على بعض 
اوامر الجافا سكريبت اضافة لبعض الجداول والحقول وخلافه من HTML‏ ۰ لكن في الواقع فان 
تشكيل هذه الصفحة يهذه الصيغة cle‏ عن طريق يعض عمليات السیر فر التى قامت Sel pas‏ بعضص 
قواعد البيانات وشكلت لك الجداول التى تحتوي على البريد الوارد لكت وخاذفه. 
لذا فى هذه الصفحة انت غير قادر على رؤية اكواد اللغة التى تمت برمجة السيرفر بها ۰ و لکنک 


تستطيع مشاهدة النتائج فقط حيث ان عمليات المعالجة تتم على السيرفر فقط. 
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دوره حياة تطبیق الانتر نت: 


بمجرد ادخالک لعنوان موقع ما يبتدأ ب - http://‏ وهو ما يعني انڪ ستستخدم بروتوكول 
- ۱]]0ایقوم البروتوكول بارسال هذا العنوان إلى ما یعرف AEST Domain Name Serveru‏ 
DNS aub‏ . یقوم هذا ال DNS‏ بتحویل الكتابة التی قمت بكتابتها لعنوان Physical‏ على الانتر نت 


خاص بال IP‏ صاحب الموقع ۰ شكل ال DNS‏ یکون بالشکل GIUM‏ كمثال: 



































| Name | IP 
Www. yahoo.com è bit — 4 parts IP 
www. hotmail.com 0/0/0000 





الصورة 22. 1. عملية تحويل العناوين النصية إلى عناوين IP‏ في خوادم ال DNS‏ 


الآن اصبح بالامكان معرفة IP‏ المميز لهذا الموقع › الآن يتم فتح - port‏ غالبا ما يكون 80 - ويتم 
ارسال طلب المعالجة إلى هذا الموقع وهو ما نطلق http Requestaıle‏ 


في حالة کون الموقع (Static‏ يتم الرد بالصفحة المطلوبة فقط . اما في حالة کون الصفحة 
dynamic‏ يتم معالجة البيانات المطلوبة وارسال صفحة النتائج إلى المستخدم وهو ما نطلق عليه 


. http Response 
فقط.‎ http لكل بروتوكل دورة عمل « وما يهمنا هنا هو‎ - 
Client Side Web Sites مواقع العمیل‎ 


یستلزم هذا النو ع بداية معرفة ب HTML‏ وهي لغة سهلة جدا یمکنک التعرف علیها خلال اقل من 
caua‏ ساعة عن طریق هذا الرابط مثلا؛ 


رايط هي 


www.html4arab.com 
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ومع ظهور برامج ابتداء ب Front Page‏ وانتهاء ب Dream Waver‏ اصبح بامکانک عمل الموقع 
دون اي معرفة بال HTML‏ عن طريق الادوات فقط. 
ايضاً تحتاج ل Java‏ او vbscript‏ لبرمجة بعض الخصائص . Las!‏ ضمن ال HTML‏ تجد عالم ال 
Forms‏ الذي سیمکنک من التواصل مع العالم الخار جي › و تحتاج لبعض المعرفة في هذا gat!‏ ضوع 
یمکنک مراجعة الدرس التالی كبداية Vbscript H‏ — من مدونتی - : 
رابط هي 

http://ahmedgamal-technical.blogspot.com/2008/08/ vbscript.html 
javascript و الدرس التالی كبداية لل‎ 
$9 رابط‎ 


http://www.w3schools.com/| S/default.asp 
اطلب منک الکثیر في هذا المجال حالیا...‎ Y » والآن اتوقع انك ملم بالاساسیات فقط‎ 


الفرق بين تطبیق الویب Web Application‏ و خدمة 411 Web Service ca‏ 


- تطبیق cas‏ هو عبارة عن مجموعة من الصفحات و ملفات الاکواد و قواعد البیانات التی لها 
دورة حياة خاصه مثلها مثل اي wold ps‏ يتم قنحها و اغلاقها و تنفید احدات و خلاقه 

- اما خدمة الویب فهی عبارة عن خدمة تستقبل يعض البیانات و تعیدها يعد يعض عملیات المعالجة 
يتم التعامل معها من اي dal‏ برمجه قادرة على الوصول إلى اسمها 9 رقم البورت فقط. 

: IIS ال‎ 

هو السیر فر الخاص يبرمجيات ASP‏ و ASP.net‏ . و و جوده da Là‏ اساسی Jead‏ كودك ASP.net,‏ 
سواء على جهازك الشخصی أو على السیرفر الذي ستسضیف عليه موقعک لاحقا. 


کو نک قمت بعمل setup‏ لل Visual studio‏ یعنی انك قمت بتحمیل ال IIS‏ او للدقة cold‏ قمت 
بتحمیل WebDev.WebServer.exe‏ والذي يشمل ال ؟|| . اما إذا كنت تود البرمجة على المفكرة 


Control Panel بد من عمل (لاأ©5 له » وذلک عن طريق اختيار لوحة التحكم‎ Mà Sts Notepad 
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اضافة وازالة برامج Add And Remove Programmes‏ واختر اضافة مکونات ویندوز Add‏ 


ISG) و هو‎ Internet Inforamtion Services ستجد من ضمنها‎ ۰ Windows ۲ 

*” الطريقة السابقة كل حسب نظام التشغیل الذي يعمل علیه. 

تجارب بسيطة 

قم بفتح Notepad‏ جديد » قم بتسميتها لتكون index.html‏ مثلاً ثم قم بكتابة المحتويات التالية 


فيها: 


«html» 


«head» 

«title»My First Pgae</title> 
«/head» 
«body» 


<center><img srcz"http://l.yimg.com/a/i/ww/beta/y3.gif"»«/centeR» 
«br» 
«font color=red size=3>Yahoo!</font> 
<br> 
<a href="http://www.yahoo.com">Link Here</a> 
</body> 
</html> 





Ot‏ سنقوم برسم الفورم التالی لادخال البیانات: 


Welcome !! 


N. 





dire 


Password 





do anything 


الکود الخاص بهذا الفورم کالتالي: 
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«html» 
«head» 
<title>My First Pgae</title> 
</head> 
<body> 
<h2>Welcome !!</h2> 
<br> 
«form name-"forml"» 
«table border=0> 


«tr» 
«td»Name«/td» 
«td» 


«input type-text name-textname size-10» 
«/td» 
«/tr» 
«tr» 
«td»Password«/td» 
<td><input type-password name=textpass size=10><td> 
</tr> 
</table> 
<br> 
<input name-"buttonl" type=button value="do anything" )( م‎ "> 
&nbsp; &nbsp; &nbsp; 
«input type-reset value="Clear"> 
«/form» 
«/body» 
«/html» 


olo‏ نريد ان تقوم بالتأحد من أن المستخدم قام بادخال بيانات في الفورم . لو قام بادخال بیانات 
فسوف نظهر Le‏ له فى رساله نصية و علی الشاشه ایضا . لذا سندهب للرر Button1‏ ونغیره ليصبح 
بالشکل التالی: 





«script language=" javascript "> 
function doCheck )( 
( 


if(forml.textname.value!-"" [| forml.textpass.value!="") 


( 


alert(forml.textname.value); 
document.write(forml.textpass.value); 
} 
else 
alert ("enter data first !"); 
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Visual Studio است‌خدام‎ 


سننقل نفس هذه التجربة البسيطة ولکن باستخدام ASP.net‏ من Visual Studio Jas‏ قم بفتح 
الفیجوال ستودیو وقم باختیار ويب جدید Website‏ ثم اختر ASP.net Web Site‏ 


Templates: NET Framework 3.5 





























Visual Studio mstalled templates 


دو & € 8 39 


ASP.NET ASP.MET Empty Web WCF Service — ASP.NET 
Web Ste Web Semice ‘te Reports W... 











hy Templates 


AJAX Control Search 
Toolkit We... Online Te... 





û blank ASP.NET Web site (NET Framework 3.5) 
| Location: File System >| CAUsers Ahmed Documents) Visual Studio 2008 WebSites WebSite? 








| Language: | Visual C= + | 











O1‏ قم برسم نفس الفورم و لکن من الادوات الحانبية: 
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Login 
WebParts 
HTML 

lk Pointer 

= — [pun 


ET E EH. E 





a Input (Submit) 
ادها‎ Input (Text) 
Input (File) 

Input (Password) 
Input (Checkbox) 
5 gps e 


"E Textarea 
E4 Table 
a Image 
Select 


=] Horizontal Rule 





ô j 94241‏ 2 د. oM gai‏ ال HIML‏ في الفیجوال ستوديو. 


ملاحظة 
لا تنس lil‏ حتی اللحظة نتعامل gg‏ ادوات HTML‏ ولپست ادوات ASP.net‏ 





وعندما تقوم بوضع الکود ۰ قم بالضغط المزدوج على Button‏ و قم بكتابة الأوامر مباشر ة: 
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| Client Objects & Eventi > (he Ee) 7 
EI Page Langunge-"Cf" AnutofventMirsgeup-"true" DpdEeFile-"Default.m"px.cs" Innerits-" Defnult" a> 


€'DOCIYPE html PUBLIC "-//W3cC//DID ABIML 1.0 Transitional ER" "KELDI 


WII‏ از ار 





<html تین ار ار و زوم نود‎ wd orgs 


(hend FUT! Serer" 





ztitiesxümntitled Pagezc/titises 
Cscripr language€""javascript" rypes""rexc/javascript"» 


function Burttonl anclick|) i 

if([(forml.rexcname.value?*-"" || forml.rtewtpass.TAlurs!-""*"| 
1 

nlerti(farml,.ctexrrmrame.value)] 
document.writeifoiml.textpasas.valgce): 


elsa 


glert ("enter data first '"); 








form if "fore" runa&re"server": 
“dave 


YF‏ - ات 
7ن 1 )€ 
^ > 


*inpurc id""Hurttonli" type="button” valiuse"-""button" onclick""rerturnun Buttoni onclick )" FFI O? 





G Design Spit | 5 Source | j اكه‎ |] thead» نت‎ ۱ 


الصورة ۰.22 4. محرر ال HTML‏ المتقدم في تطبیقات ال ASP.NET‏ 


یمکنک استعراض التصميم والکود سوية او كل واحدة Lege‏ عن طریق التبویب اسمل الصفحه : 


aji 














Design | O Split | E Sourc‏ ها 





فقط ... كانت هذه هي تجربتنا البسيطة › في الدرس القادم سنبداً بالتعامل مع ASP.net‏ . 


2 مقدمة إلى ASP.net‏ 


في درسنا السابق جربنا التعامل مع Visual Studio‏ وعمل صفحات ویب غير تفاعلیه » في 


هذا الدرس سنجرب تجریتنا الاو لی مع المواقع التفاعلیة. 
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ASP.net تجرية‎ 


قم بفتح الأدوات Standerd‏ قم برسم مربع نص TextBOX‏ واداة عنوان Label‏ وزر آمر Button‏ في 
زر الأمر قم بکتابة الکود التالي: 


CH | كود‎ 


Labell.Text- TextBoxl.Text; 


VB.NET ۱ Te 


Labell.Text= TextBoxl.Text 


وجرب ... في الواقع لقد قمت يعمل اول صفحة ASP.net‏ لک. 


* 





ماذا حدث فعلیا $ 


لو فتحت صفحة ال HIML‏ ستجد أن a‏ كود HTML‏ عادي يحتوي على فورم › فى 
الواقع فان ما تم هو حدوث Submit‏ إلى السیرفر حيث alā‏ بارسال بیانات الفورم كاملة إلى 
السیرفر ۰ وهناك على السیرفر تمت معالجة البیانات وتم alel‏ الصفحة التي تحتوي على Label‏ 
يحتوي على المحتوی Ahmed‏ او ايا كان محنوی مریع اللص قبل الارسال ۰ لو جريت مشاهدة 


الکود HTML‏ الخاص بالصفحة الناتجة ستجد الجزء التالي من الکود: 





«p» 
«span id-"Labell"»Ahmed«/span» 

«/p» 

«p» 
«input name="TextBoxl" type="text" value="Ahmed" id-"TextBoxl" /» 

«/p» 

«p» 
<input type="submit" name="Button1" value="Button" id-"Buttonl" /» 

</p> 

كما ذحرنا » تمت معالجة البیانات » وتم اعادة الناتج إلى Labell‏ اما الاکواد و خلافه فهی فى 

السبر قر فقط. 
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انواع ارسال البیانات. 


فى أي Form‏ هناك طریقتین لارسال البیانات هى POST‏ و GET‏ » فى الطريقة الاو لی و هي 
الافتر اضية يتم ارسال بیانات ال Form‏ مباشرة. اما في آ٣6‏ فیتم ارسالها في عنوان المتصفح. جرب 
تعدیل الفورم الخاص بنا لیصبح بالشکل التالي: 


HTML | tye 





«form id="form2" runat="server" method="get"> 


(@ Untitled a ue emet یر بر و‎ 











QU 5-57 Te: 2 = 8 ۱۳۰۵۳۳۵۸ EVENTVALIDATIOM- ?52FwEWAwKSha3 TCgLs0bLrBgkKMS4rGBwto2FxAQ! 
: File Edit View: Favori —=xD | 


wr d é Untitled Page | — 








الصورة 22. <. استخدام ال GET Method‏ لارسال البیانات. 


72 


Lo.‏ ترى 2 يكم ارسال كاهفة محتويات الفورم في العنوان + Lasts‏ معظم المتصفحات دضع حد و دا 
على طول الفورم آما في حالة POST‏ فلیست هناك اي قیود. 


لكل واحدة منهم das bo‏ قراءة Lore‏ لو اردت قراءنها منفصله بالکود . وهو ما قد نتعرف عليه في 


مرات قادمة ان شاء الله تعالی. 
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Code Behind 


من ضمن الممیزات الجديدة التي ظهرت مع ASP.net‏ عن ASP‏ القديمة هي فصل الکود عن 
التصمیم ۰ فى صفحة ASP Classic‏ قديمة كنت تری هذا الکود مثلا: 


ASP.NET = 





v_Id = Request.QueryString ("id") 
Response.Write ("<form action=test7.asp?id=" & v id & " method=post>") 
Response.Write ("<font color-red»«b»«center»Write your 
C.V.</center></b></font><br>") 
" «table» 
«tr» 
«td»Computer Skills :«/td» 
<td><input type=text name-v cs size=30></td> 
</tr> 
<tr> 
<td>Characteristics :</td> 
<td><input type=text name=v_char size=30></td> 
</tr> 
<tr> 
<td>Interest's :</td> 
<td><input type=text name= v_inter size=30></td> 
</tr> 
<tr> 
<td>Language Skills :</td> 
<td><input type=text name=v_ls size=30></td> 
</tr> 
<tr> 
<td>Education :</td> 
<td><textarea name=v_edu cols =30 rows=6>write your Study Field 
here</textarea></td> 
</tr> 
<tr> 
<td>Experince :</td> 
<td><textarea name=v_exp cols =30 rows=6>write your Experiences 
here</textarea></td> 


</tr> 
</table> 
<br> 
«hr width=75%> 
<center> 


<font color=red><b><center>Join Demand</center></b></font><br> 
<textarea name=v_Join cols=40 rows=9 WRAP=physical></textarea> 
<br><br> 
<input type=submit value= Continue> 
<input type=reset value=Erase> 
</center> 
</form> 
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Lei‏ فى ASP.net‏ فاصبحت أكوادك فى ملف بامتداد CS‏ * في حين اصبح التصمیم في ملف منعزل 


بامتداد ۴.250 


— lg App. Data 
E Eg] Default.aspx 
: | Default.aspx.cs 
2 E» web.config 


وبرغم ذلك ما زلت قادرا على دمجهم فى ملف واحد إن احببت ذلك وهی طريقة Le‏ زال یفضلها 
الکثیرین $c‏ ایضا قد تحتاج في بعض الاحیان لتطعیم ملف ال ASPX‏ ببعض اکواد ال ASP‏ خصو Lis‏ 


في المشاریع المتشعبد. 


بخصوص clad!‏ الکود ۰ فعلا صمم pial‏ عمل تداخل و لتسهیل الامر على المبرمج ۰ و لکن برغم 
ذلك يظل اسلوب الكتاية فى صفحه و احدة انسب لعدة تقاط : 


- احیانا ما تحتاج لوضع بعض الاکواد التي لا تستطیع العمل علیها من خلال صفحة - 65.* والذي 


يعمل في مشرو ع كبير یستطیع ان يدرك ذلت. - 
7 اسهل في التوزيع والنقل بين المبر مجین. 


- وفى نفس الوقت اسهل فى التعديل » فتعديل اسم حقل يتطلب التعديل فى ملف واحد فقط - رغم 


ان aaa, Visual Studio‏ لک ميزة التعديل المباشر إلا ان عواقبها وخيمة عن Dts pad‏ 


mae -‏ هي اسهل في عملیه ال Deploy‏ لعدم وجود ملفات معتمدة على بعضها البعض وهو 


موضوع درسنا التالي. 
مكونات مشروع ال ASP.net‏ 


لو قمت بتصفح ال Website Directory‏ الموجود على یمین المتصفح 6 ستجد انه يحتوي 
اضافة لملفات مشروعت على المجلدات التالية - حتى لو لم تكن موجودة فهده الاسماء القياسية 


لكتابتها -: 
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Browsers‏ : يحتوي على الملفات التي تقتنص نوع المتصفح و تتعامل مع کل متصفح بناء 
على امکانیاته. 


App_Code‏ : يحتوي على ملفات الاکواد والفثات Classes‏ التي تخص صفحات الویب. 
App Data‏ : يحتوي على ملفات قواعد البیانات. 

. *.۲65 تحتوي على ملفات المصادر‎ : App, GlobalResources 

App Themes‏ : يحتوي على الملفات التي تعني بالمظهر والستایلات الخاصة بالمشرو ع. 


5 _ _ في حالة وجود بروحسي Proxy‏ اوي اي نوع من Web Services!‏ 


Bin‏ : يحتوي على الملفات الجاهزة مثل ملفات ال *.dll‏ والتي يتم استخدامها في بر نامجک. 
Compilation Cycle‏ دورة Ae it!‏ 


فى ala‏ کون الملف Single File‏ » يتم ترجمة الملف یکامل محتویاته إلى فئة Class‏ مشتقة من 
awl System.Web.UI.Page‏ نفس الصفحة اضافة ل. _ASPX‏ 


Autogenerated Assembly Hosted 
Under aspnet wp.exe 
Runtime Compiler 


System. Web.ULPage 
(Base Class for All *. aspx Classes) 


MyPage.aspx 


MyPage_aspx <html> 
(Dynamically Defined and Compiled mo 
class Type) <html> 





الصورة 22. 6. دورة ترجمة تطبیقات ال ASP.Net‏ 
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Lei‏ في حالة استخدامک لل Mode‏ الخاص بعمل Code Behind‏ » فسیتم عمل نفس الخطوات و لکن 
بدمج ثلاث ملفات سوية» الملف المسمی الذي يحتوي على ال () InitializeComponent‏ 
يتم عمل Compile‏ له . Lào Y ex‏ اشتقاق الملف المتکون من CS + ASPX‏ مته و لیس من 


System.Web.UI.Page‏ مباشر ة. 









Runtime 
Compiler System, Web.Ul.Page 


(Base Class for All *. aspx Classes) 


MyPage.aspx.cs 
(Partial Class Definition 
in Code-behind File) 


Generated Partial Class 
Based on MyPage.aspx 


Autogenerated Assembly Hosted | MyPage.aspx 
Under aspnet wp.exe 


<html> 





<html> 


الصورة 22. 7. دورة ترجمة صفحات ال ASP.NET‏ 


۴ الصور منقو لة... 
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System.Web.UI.Page Aiall .3 


تحتوي هذه الفئة على de gems‏ من الخصاتص والفتات التى ستفيدك فى عملت منها: 


الفتة الو صف 





Application‏ التعامل مع متغيرات التطبيق وما يختص بالموقع 
Cache‏ للتعامل مع الكاش الخاص بهذا الموقع 
IsPostBack‏ لمعرفة هل الصفحة يتم عمل Load‏ لها من جديد ai‏ انه يتم عمل 
Load‏ لها clu‏ على عملية Submit‏ حدثت من الصفحة 
MasterPageFile‏ تحدید الصفحة الماستر ۰ سنتعرف عليها لاحقا 
Request‏ ال HttpRquest‏ ۰ سنتعرف علیها في الدرس التالي 
Response‏ ال .HttpResponse‏ سنتعرف علیها في الدرس التالي 


Server‏ لوصول إلى الدوال الخاصة بالتعامل مع السیرفر ضمن 
HttpServerUtility‏ 

Session‏ التعامل مع ال SESSION‏ تستخدم لتخزین بعض القیم وسنتعرف 
علیها لاحقا 


Theme‏ لتحديد الثيم - لا اعرف ترجمة له - الخاص بهده الصفحه 


الجدول 22. 1. آهم Glia‏ في مجال System.Web claw!‏ 


3. 1. التعامل مع ال Request‏ 


عملية ال Request‏ هی عملية ارسال بیانات إلى السیر فر لتنفین مهمة ما علیها « عملية 


ارسال البيانات atlas‏ علیها اسم .Hequest‏ 


مثال : بعد ادخال البيانات الشخصيه تقوم بالضغطظ على زر ۱ ارسال ( هذا الزر يقوم بمهمه 


.Request 
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في العادة ۰ يتم تعریف ال ACTION‏ وهي الصفحة التي يتم ارسال البيانات الیها » كما يتم تحدید 


اسلوب الارسال Get‏ أو Post‏ التي شر حناها سابقاً وذلک في تعریف الفورم بالشکل التالي مثلا: 


«form name="form1" id-"forml" action="Process.asp" method = "GET"> 





</form> 
نفس النظام ایضا » و لکن يتم تعریف الفورم بطريقة مختلفة قلیلا:‎ net فى‎ 
HTML | ی‎ 


هذا يعني افتراضیا ان الصفحة التي سیعود فیها هي نفس الصفحة كما ان طريقة Jia jM!‏ 





الافتراضية هي POST‏ 


غير ان ASP.net‏ لا acd‏ لك الوصول مباشرة إلى Wists dittpRequest‏ تمنحک هذه 


الخاصية ضمن Quis System.Web.UI.Page.Request‏ تجد فیها الدوال والخصائص 


نوع متصفح المستخدم. وهي 443 تحتوي على عدد كبير من 
المعلو مات 


Get او‎ Set الارسال‎ are نو‎ 


محتويات الفورم الذي نم ارساله للسيرقر في حاله ڪون 


الارسال (Get‏ حيث يقوم بقراءة محتويات ال URL‏ مباشرة حتى 
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لو لم تكن من ضمن محنئویات الفورم 
ISSecureConnection‏ لمعرفة هل يتم تطبیق اتصال Http‏ آمن ام لا 


1 معرفة ال URL‏ يدون اي اضافات 


ServerVariables‏ الو صول والتعامل مع مجموعه متغیرات السیر فر 


USerHostAddress‏ معرفة IP‏ العمیل 
USerHostName‏ 44,20 اسم المستضیف للعمیل 


ana MapPath()‏ تقوم بتحویل المسار المطلوب إلى مسار حقيقي على 
السیر فر 


() 527625 حفظ محتویات ال http‏ على ملف على السیر فر 





الجد ول 22. 2. pai‏ دوال و خصائص الفئة Request‏ 


و سنستعرض لبعض الامتلة عن استخدام ...Request‏ 
قراءة بیانات التى تم ارسالها فى ۴0۲۳ 
لو كنت تستخدم اسلوب :Post‏ 


CH 


firstName = Request.Form("txtFirstName"); 





VB.NET ۱ ye 


firstName = Request.Form("txtFirstName") 


C# 


firstName = Request.QueryString["txtFirstName"]; 
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VB.NET 


firstName = Request.QueryString("txtFirstName") 


وبرغم انڪ تستطيع قراءتها مباشرة باستخدام ال ID‏ كما شر حنا في أو ل 02952 إلا انڪ 





ستحتاج لهده الطريقة في عمليات آخری اضافية. 


معرفة احصائيات المتصفح Jw pot!‏ 


string theInfo = ""; 

string isAOL = string.Format("Is AOL? {0} <br/>", Request.Browser.AOL); 
string isActivex = string.Format ("Support ActiveX? {OF <br/>", 
Request.Browser.ActiveXControls); 

string isBeta = string.Format("Is Beta? {0} <br/>", Request.Browser.Beta); 
string isJava = string.Format("Support Java Applets? {0} </br>", 
Request.Browser.JavaApplets); 

string isCookies = string.Format("Support Cookies? {0} <br/>", 
Request.Browser.Cookies); 

string 1sVB = string.Pormat("Supporr VBSocrIDLT 10) «br/»", 
Request.Browser.VBScript); 


Dim thelnfo As String = "" 

Dim isAOL As String = String.Format("Is AOL? {0} <br/>", Request.Browser.AOL) 
Dim isActivex As String = String.Format ("Support Activex? (0) <br/>", 
Request.Browser.ActiveXControls) 

Dim isBeta As String = String.Format("Is Beta? {0} <br/>", 
Request.Browser.Beta) 

Dim isJava As String = String.Format("Support Java Applets? (0) </br>", 
Request.Browser.JavaApplets) 

Dim isCookies As String = String.Format ("Support Cookies? [0) <br/>", 
Reguest.Browser.Cookies) 





3. 2. التعامل مع ال Response‏ 


العملية العكسية لعملية Gus (Request‏ تمتل عملية نقل البیانات من السيرفر إلى العمیل 
مر ۵ أخرى ۰ حیث تشكل الناتج الذي سيتم ارساله للمستخدم « وتحتوي على الخصاتص و الدوال 
التالية: 
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الخاصية أو الدالة الو صف 


كما في حالة ال Request‏ و لکن في العملية العکسية 


مسح كافة محتویات ال Headers! g Body‏ 


ارسال ما تم انجازه للعمیل دون ایقاف عملية المعالجة TX‏ مفيدة 
om js‏ 





Response آهم دوال وخصائص الفئة‎ .3 .22 J sal 


مثال على الكتابة باست‌خدام :Write‏ 


Response.Write("«u»This is javascript code</u>"); 
Response 


Response 
Response 
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ASP.net ادوات‎ .4 


كما لاحظنا سابقاء. فان تعریف أي اداة من آدوات ASP.net‏ يتم من خلال HTML‏ مکتوب فى ASPX‏ 
و قیما عدا ذلك فهی شديدة الشبه بالادوات العادية فى تطبیقاتنا من ناحية المظهر و تعاملک معها 
كمبر مج » الا انها تختلف في الأداء وما وراء الکود بشکل قطعي. 
وكذا الأمر بالنسبة للأحداث ایضا Gilly‏ تم عمل ضغط لها لتتناسب مع عالم الویب ۰ ومع اي 
Event‏ يتم نقل البیانات إلى السير فر مباشرة. 
خاصية AutoPostBack‏ 

تتيح لک هذه الخاصية النقل إلى السيرفر مباشرة مع اي تحديث فيها » تجد هذه الخاصية في 
مربعات النص Text BOX‏ وادوات الاختيار والتحديد Check Box & Radio Buttons‏ والقوائم 


بانواعها List BOX‏ و Combo Box‏ والقيمة الافتراضية لها هي false‏ 


4 1. الخصانص الأساسية لادوات الویب 
تشتق جمیع آدوات الویب من System.Web.UL.Control anah‏ والتي نجد لها الخصائص 


و الدوال التالية: 


الخاصية أو الدالة الو صف 


Controls‏ تعید جمیع الأدوات الابناء لهده الأآداة 


HasControls()‏ تعيد قيمة منطقية بو جود أو عدم وجود أدوات داخل هذه الأآداة 
ID‏ الاسم الموحد لكل اداة - M‏ یمکن تکراره- 
Page‏ تعود بمتغیر على الصفحة التی تحتوي هذه الاداة 
Parent‏ الأداة الحاضن:ة لهده الآداة 


Visible‏ ظهور of‏ اختفاء هذه الاداة 





الجدول 22. 4. آهم دوال و خصائص Control at‏ 
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كما تقدم System.Web.UI.WebControls.WebControl atat‏ للادوات المشتقة 


duoa Lati‏ الو صف 





BackColor‏ لون الخلفية 
ليا ل ا نون الحدود 
BorderStyle‏ ستایل الحدو د 
BorderWidth‏ عرض الحدود 
Enabled‏ تفعیل أو عدم تفعيل الأآداة 
CssClass‏ ال class‏ الخاص بال Styles‏ لهذه الأداة 
FONT‏ معلومات الخط من الحجم والاسم و خلافه لهده الاداة 
ForeColor‏ لون خط الكتابة 
Height‏ الطول 
8 العر v‏ 
6 موقعها من التنقل Tabet uL‏ 
ToolTip‏ في حالة و جود Tips‏ للاداة 


الحد و J‏ 22. <. آهم دوال و خصائص WebControl] Asan‏ 
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مثال : استعراض اسماء جمیع الأدوات في الفور م 


باستخدام ال Collection‏ الناتج عن الخاصية Controls‏ اضافة للدالة 


HasControls )(‏ لمعرفة و جود آدوات من عدمه » یمکنک كتابة الکود التالي: 


String Information = TF, 
if (myPanel.HasControls()) 
{ 
foreach (Control c in PanelName.Controls) 
{ 
if (!object.ReferenceEgquals(c.GetType(), 
Lypeor(5ystem.Web.UIlI.Literalbontrol))J) 
{ 
Information += Sstring.Format ("Control Name: {10} <br/>", 
c TOstring ().) 
Information += dLtrfXgg.Pormat("IDr 40} Cora, e ID); 
Information += string.Format("Control Visible: {0} <br/>", 
الع ادس اس ركاه‎ 
1112 ormation string.Format("ViewState: {0} <br/>", 
c.EnableViewState); 


Information ts “ebro te 


Response.wite (information); 


VB.NET 


Dim Information As String = "" 
If myPanel.HasControls() Then 
For Each c As Control In PanelName.Controls 
If Not Object.ReferenceEquals (c. [GetType] (), 

GetType(System.Web.UI.LiteralControl)) Then 

Information += String.Format ("Control Name: {0} <br/>", 
Ga Oot mig زر‎ 

Information += Srring.Pormat("IDs ID) <br/>"; Q.ID) 

Information += String.Pormat("Control Visible: {0} <br/>", 
c.Visible) 

Information += String.Format("ViewState: {0} <br/>", 
c.EnableViewState) 

Intormatrorn += "cbr/9«hrJ/»ebr/»" 

Response.Wite(Information) 


End If 
Next 
End Ir 
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متال : انشاء آدوات و قت التصمیم 


TextBox tl - new TextBox(); 
LIJID = Sbtring.FPormat("dynamictl"); 
myPanel.Controls.Add(ti); 


VB.NET 


Dim tl As New TextBox() 
Ll.ID = Sbtring.Format("dynamrcetl") 
myPanel.Controls.Add(tl) 





آقسام ال#دوات فى ASP.net‏ 
تنقسم الأدوات المو جودة في ASP.net‏ لعدة آنواع رئيسية: 


Simple controls 


الأدوات التي تتبع ASP.net‏ ولکنها من عناصر Lulul HTML‏ مثل مربعات النص TextBOX‏ والعنوان 


Label‏ و آزرار الأمر Buttons‏ و خلاقه. 
Rich controls‏ 


مجموعة من آدوات ASP.net‏ العادية ولکنها اکثر تشعبا و خصائص .۰ من امثلتها اداة التقویم 


۲ واداة عرض الشجرة TreeView‏ و القوائم Menu‏ و خلافه 
Data controls‏ 

هي ادوات تعتمد على الربط بقاعدة البیانات » من اشهر امتلتها. GridView‏ 
Validation controls‏ 


ادوات التحقق 0( هی ادوات سيرفر ولکن يتم تنفید‌ها عند العمیل. Coo‏ يتم تطبیق Cli gine‏ 
1 فيها لتنفين بعض عملیات التحقق. 


Login Controls 


محموعه من الادوات المتکامله لتسجيل الدخول و خلاقه. 
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Web part controls 


مجموعة Ol gal‏ مخصصه لاتاحه dio pal)‏ لمستخدم موقعک للتحكم في لون و خصائص اجزاء 


الصفحه. 
هناك بالطبع HTML Controls‏ والتي تحدثنا عنها سابقا. 
سنحاول ضمن الدروس القادمة التعرف على بعض هذه الأدوات الخاصة التي ستمر علینا pol‏ 8 


الاو لی ما عدا ال GridView‏ و التی سئو جل الحدیث عنها حتی قسم ال ASP.net‏ + قواعد البیانات. 


Master Pages .5 


لعلک تلاحظ في عدد كبير من المواقع ان جزءا خابتا من الموقع لا يتم تغییره في کل 
الصفحات» Coo‏ يبدو كجزء من الصفحه و (ela‏ معها و لکنه يبدو مکررا فى کل الصفحات. 


في الواقع هذا الجزء لیس موجودا في كل الصفحات ۰ لتتخیل ان الموقع به 100 صفحه و قمت 
بعمل نفس الجزء في كل Bye‏ ثم رغبت في تغيير احد خصائصه 0( فستضطر للتعديل في ال 
0 صفحة كاملة. 


من هنا ظهر ino‏ ال include‏ في ASP‏ والذي كان يتيح لک عمل Include‏ لصفحة بعينها في اي 
جزء من صفحتک ؛ ومع ASP.net‏ ظهرت ننا Master Pagesgi‏ والتي تجعل من صفحة ما صفحة 


رئيسيهة لكل الصفحات. 


سنجرب هذا المبدأ سوية « قم باضافة New Item‏ واختر Master Page‏ بالشكل التالى: 
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Add Mew [tem - CAUsers AD ents Visual Studio 2008 WebSrtes WebSite D 


Visual Studio installed templates 


۳7 لكا‎ x a O 


Web Form Master Page Web User — AlàXChent AJAX Client AJAX Client AJAX Master 
|. Centrel Behaviar Control Library Page 


à a 2g ® ل‎ s 


Browser File Class Crystal DataSet Generic Global HTML Page 
Diagram Report Handler Applicati... 


E em | ۳" ۳ 

-= ۱۳3 a4 — 
Report Resource File — Site Map Skin File SOL Server — Style Sheet 
Wizard Database 


8 3 4 





























ae oe 


A Master Page for Web Applications 


Name: MasterPage.master 


|; Select master page 









































الصورة 22. 8. MasterPage akai‏ للمشرو ع. 
بعد انشاءك لها Jools‏ ملا تلاحظه في صفحة الکود هو و جود العنصر الجدید التالي: 


ASP.NET 


«asp:ContentPlaceHolder id-"ContentPlaceHolderl" runat="server"> 


</asp:ContentPlaceHolder> 
لها . قم بوضع اكوادك المختلفة قبل‎ Master Page یمثل هدین الوسمین الصفحة التي سیتم عمل‎ 
تیسیه فيها.‎ I وبعد هذه المنطقه . اما هذه المنطقه فسیتم عرض الصفحه‎ 





لیس هذا فقط . اي أن كتابة الکود فوق و تحت الوسم لا یعنی انها ستظل فوق و تحت الصفحه 
فقط . في المثال (QUO!‏ سنجعل الصفحه الرئيسية تظهر فى مریع صغير فقط وسط الصفحه Lond‏ 


ال 9 مربعات الاخری تحتوي على بیانات ما c‏ بالصورة التالية مثلا: 
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hii, i am here any thing 
bye 





53,5 ۰.22 9. صفحة ال .MasterPage‏ 


الکود الخاص بهده الصفحه سیکون بالشکل التالي: 


ASP.NET 


8 Master Language="C#" AutoEventWireup-"true" CodeFile="MasterPage.master.cs" 
Inherits-"MasterPage" 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtmll/DTD/xhtmll-transitional.dtd"» 
«html xmlns-z"http://www.w3.org/1999/xhtml"» 
«head id="Head1" runat="server"> 
<title>Untitled Page</title> 
<asp:ContentPlaceHolder id="head" runat="server"> 
</asp:ContentPlaceHolder> 
</head> 
<body> 
<form id="form2" runat="server"> 
<div> 
<center> 
<table border="1" width=80%> 
<tr> 
<td>hiiii, i am here</td> 
<td><img src="http://vb4arab.com/vb/attachments/logo. jpg" /></td> 
<td>any thing</td> 
</tr> 
<tr> 


<td>hii again</td> 
<td> 


<asp:ContentPlaceHolder id-"ContentPlaceHolderl" runat="server"> 
</asp:ContentPlaceHolder> 
</td> 
<td><input type="button" /></td> 
</tr> 
<tr> 
<td colspan=2>large TD :)</td> 
<td>bye</td> 
</tr> 
</table> 
</center> 
</div> 
</form> 
</body> 
</html> 
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و Lasts‏ یمکن تصمیمها من خلال ال Designer‏ و لیس من الکود فقط . بعد الانتهاء من التصمیم قم 
بانشاء صفحة جديدة . وفى شاشة طلب Master Page‏ قم بتحدیدها له بالشکل التالی: 


| Add New Item - C:\Users\Ahmed\Documents\Visual Studio 2008\WebSites\WebSite7\ 


| Templates: 
p | Visual Studio installed templates 


€ s ا ها‎ g R 


| Web Form Master Page Web User AJAX Client AJAX Client AJAX Client AJAX Master AJAX Web — AJAX-enab... 
۳ Contral Behavior Control Library Page Form WCF Service 


a g » لك‎ 8 u 9 s 


| | Browser File Class Class Crystal DataSet Generic Global HTML Page — JSenpt File 
Diagram Report Handler Applicati... 


Resource File S Skin File SQL Server — Style Sheet Text File 


Database 


tra pu om); 





A 1 form for Web APR HORE 


|| Name Default? نام 2ق‎ 





| | Language: | Visual C# 





.MasterPage اعداد الصفحة لتکون تلقائیا‎ . 10 .22 5 5 sat 
سیطلب منک تحدیدها في شاشة اخری » والآن مع اي صفحة ترغب في حصولها على نفس‎ Là Y 
الشکل ستقوم باعطاء‌ها نفس القيمة ۰ حتی لو كانت صفحة قديمة یمکنک تعدیل الخاصية التالي‎ 


Page فى:‎ 





<42 Page Language-"Ci'[MascterPagerile-"- Master Page.master"§AutoEventWireup="true" CodeFi 
ومراعاة و جود هذا الوسم تحديدا:‎ 


ASP.NET | i 





<asp:Content ID="Content2" ContentPlaceHolderID-"ContentPlaceHolderl" 
Runat="Server"></asp:Content> 


لکن لا تنس ان M‏ تحتوي على تکرارات Jis‏ ال head‏ و و سم html‏ 
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6 التعامل مع Sitemap‏ 


من خلال تعاملک مع كائن ال SiteMap‏ والتي acd‏ لک تعریف محتویات موقعک 


وترتیبها ۰ تستطیع لاحقا تشکیل قوائم وعرض شجري لصفحات موقعک. لنبدء اولا باضافة 


0 با لشکل التالی : 


Add New ltem - CAUsersAhmedDocuments Visual Studio 2008\WebSites\WebSite7\ 


و لا اقا ف J E js‏ 


Web Fam Master Page Web User AJAX Client AJAN Client AJAX Client AJAX Master AJAX Web — AJAX-enab... 
Central Behavior Control Library Page Form WCF Service 


Browser File Class l DataSet Generic Global HTML Page JScript File 
Diagram lepo Handler Applicat... 


Report source File Skin File SOL Server — Style Sheet Text File 
Wizard | Database 


harm 24 


A file used to create a site map 
Name: Web.siternap 


Language: | Visual C= 











الصورة 22. 11. اضافة SiteMap‏ 
ستجد الکود التالي افتراضیا: 


<?xml version="1.0" encoding="utf-8" ?> 
<siteMap xmlns="http://schemas.microsoft.com/AspNet/SiteMap-File-1.0" > 
«siteMapNode url="" title=""" description=""> 


«siteMapNode url="" title="" description="" /» 
«siteMapNode url="" title-"" description="" /» 
«/siteMapNode» 
«/siteMap» 





الآن مهمتنا لتعریف هذه ال Nodes‏ لنفترض مثلا صفحة البداية و تحتها صفحتین مختلفتین: 
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<?xml version="1.0" encoding="utf-8" ?> 
<siteMap xmlns="http://schemas.microsoft.com/AspNet/SiteMap-File-1.0" > 
<siteMapNode url="Defaultl.aspx" title="d4rio "البداية‎ description=""> 
«siteMapNode url="Default2.aspx" title="4rio الباهوو لوجو‎ !" 


description="" /» 
«siteMapNode url="Default3.aspx" titlez"ixi»sa المنتدی لوجو‎ " 
description-z"" /» 
«/siteMapNode» 
«/siteMap» 


OX‏ سنحاول الاستفادة من هذه المعلومات ۰ سننتقل إلى ال MasterPage‏ الخاصة Ua‏ و سنقوم 





باضافة Menu‏ و تحدید ال DataSource‏ لها لیکون هذا sitemap,‏ 
























































۱ (Non ۳ 
| viens Satie 





agam | Edit Menu Items... 





la Convert to D'ynamicltemTemplate 
| Convert to Staticitem Template 
Edit Templates 





الصور ô‏ 22. 12. تحدید مصدر البیانات. 


في الخطوة التالية سیطلب منک تحدید نوع ال DataSource‏ : اختر Site map‏ 
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Data Source Configuration Wizard — — ew eS 


Choose a Data Source Type 


Where will the application get data from? 


] ۶ 


Site Map XML File 


Connect to the site navigation tree for this application (requires a valid sitemap file at the application reat). 


Specify an ID for the data source: 
SiteMap DataSourcel 





الصورة 22. 13. اختیار ال SiteMap‏ كمصدر للبيانات. 


الآن ۰ جرب تشغیل موقعت والدذي سیکون بالشکل النالی: 


| صقحة لوجو الیاهوو ۶ صتحة اليداية 


صقحة لوجی المتتدی 


SiteMapPath 
آداة اخری تتبع نفس المجموعة ۰ مهمتها تحدید المکان لک بالشکل التالي مثلا:‎ 


Root Node > Parent Node > Current Node 


قم بوضعها في ال ۰۲3516۲0386 وستعمل مع كامل صفحاتک بصورة طبيعية 


Validation Controls ادوات التحقق‎ . 7 


هي مجموعة من ادوات التحقق من المدخلات يعمل اغلبها Age‏ العمیل Client Side‏ 


و تحتوي على الآدوات التالية: 
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CompareValidator - 


ارف المدخلات گی Age‏ بمدخلات آخری ۰ تفید متلا کے حالة اعادة تأکید Ales‏ المرور ۰ das)‏ 


هذه الأداة كافي لتطبیق هذا التحقق 

RangeValidator - 

آکد من ان المدخلات تقع ضمن نطاق معین يتم تحدیده 
RequiredFieldValidator -‏ 

للتأكد من أن المستخدم قام بادخال بیانات. 

RegularExpressionValidator - 


یمکنک تحدید نوع من التحقق clu‏ على Reqular Expression‏ تفيدك متلا فى All»‏ 


التحقق من صحة موقع أو بريد الكتروني او رقم هاتف . 4a pact‏ المزید عن ال Reqular‏ 


: - يمكنت مراجعة هذا الدرس 7 عریی‎ Expressions 


http://www.arabteam2000-forum.com/index.php?showtopic- 77787‏ 
ايضاً يمكنك الاستفادة من هذين الموقعین لاستخراج اي RegularExpression‏ ترغب به: 


http://regexlib.com/DisplayPatterns.aspx 
http://www.regular-expressions.info/ 


CustomValidator -‏ 
تتيح لت بناء اجراءات التحقق الخاصك یک . 


Validationsummary - 


609 


الباب pill‏ و العشرون البروجة باستخدام ال ASP.net‏ 


تعرض موجز عملیات التحقق التي تمت في هذا الفورم. 

تحتوي هذه المجموعه على الخصاتص التالية: 
ControlToValidate‏ : أداة الادخال المطلوب التحقق منها. 
Display‏ : العرض في حالة حدوث الخطأ. 
ErrorMessage‏ : رسالة الخطأ. 
ForeColor‏ : لون رسالة الخطأ. 


› لتجريه هده المجموعة 0 سنقوم يتصميم فورم تسجيل بيانات بسيطة ۰ تحتوي على الاسم‎ ot 
. و رقم المرور وتأحيد كلمة المرور . والیرید الا لکتر و ني و العمر‎ 


-الاسم لا يمكن ان یکون RequiredFieldValidator : Lats.‏ 

-كلمة المرور وتأحيدها لا بد ان یکو نوا منطبقین: CompareValidator‏ 
-الایمیل لا بد ان یکون صحیحا : RegularExpressionValidator‏ 

-العمر لا بد أن یکون بين 10 و 50 : ۴۵۱۵6۷۵۱۱0310۲ 

-وفي النهایه سنعرض نتائج التحقق جمیعها... 


قم يتصميم الفورم ۰ وضع كل اداة بجانب الحقل الخاص بها لیکون الشکل التالي: 
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Name: 


| you must eneter Name 
Age: ۱ 
NEM Age must be between 10 and 50 


Password: 


Retype Password: 


The passwords must be the same 


E-mail: 


| invalid email address 
Go On | 


Summery: 


* Error message 1. 
* Error message 2. 


sal‏ 5 3 22. 14 . محتویات الصفحة و عرض الأخطاء. 


و الکو د. 
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ASP.NET 3 


<%@ Page Language="C#" AutoEventWireup-"true" CodeFile="Default4.aspx.cs" 
Inherits-"Default4" g> 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtmll/DTD/xhtmll-transitional.dtd"» 
«html xmlns="http://www.w3.org/1999/xhtml"> 
«head id="Head1" runat="server"> 
<title>Untitled Page</title> 
</head> 
<body> 
«form id="form1" runat="server"> 
<div>  Name:«br /> 
&nbsp; <asp:TextBox ID-"TextBoxl1" runat="server"></asp: TextBox> 
<asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" 
ControlToValidate-"TextBoxl" ErrorMessage="you must eneter 
Name"></asp:RequiredFieldValidator><br /><br /> 
Age:<br /> 
<asp:TextBox ID="TextBox2" runat="server"></asp: TextBox> 
<asp:RangeValidator ID-"RangeValidatorl" runat="server" 
ControlToValidate="TextBox2" ErrorMessage="Age must be between 10 





and 50" 
MaximumValue="50" MinimumValue="10"></asp:RangeValidator> 
<br /><br /> 
Password:<br /> 
<asp:TextBox ID="TextBox3" runat="server"></asp: TextBox> 
<br /><br /> 
Retype Password:<br /> 
<asp:TextBox ID="TextBox4" runat="server"></asp: TextBox> 
<asp:CompareValidator ID-"CompareValidatorl" runat="server" 
ControlToCompare="TextBox3" ControlToValidate="TextBox4" 
ErrorMessage="The passwords must be the 
same"></asp:CompareValidator><br /><br /> 
E-mail:<br /> 
&nbsp; <asp:TextBox ID="TextBox5" runat="server"></asp: TextBox> 
«asp:RegularExpressionValidator ID-"RegularExpressionValidatorl" 
runat="server" 
ControlToValidate="TextBox5" ErrorMessage="invalid email address" 
ValidationExpression-z"^((?&gt; [a-zA-Z\d!#S%&amp; '*+\- 
/2?^ ^(|] 4] +\x20* | &quot; ((?=[\x01-\x7£]) [*&quot;\\]/\\[\x01- 
\x7£]) *&quot; \x20*) * (?&1t; angle&égt; &1t;))?((?!V.) (?&gt; V. 2[a-zA- 
Z\d!#S%é&amp; '*+\—-/=?*_~{]}~] +) + | &quot; ((?=[\x01-\x7f]) [^&quot; \\J/\\[\x01- 
\x7£]) *&quot;)@(((?!-) [a-zA-Z\d\-]+(?&1t; !-)\.)+[a-zA- 
2[ ۲2,۱۱ )))۶ (?&1t; !V[) V.) (25[0-5] |2 [0-4] Vd] [O1] ?\d?\d)) {4} | [a-zA-Z\d\-] * [a-zA- 
Z\d]: ((?=[\x01-\x7f]) [*\\\ [\J]/\\ [\xo1- 
۱۶7 ۴[ ( 2) M) (? (angle) &gt;)$"></asp:RegularExpressionValidator> 
<br /><br /> 
<asp:Button ID="Button1" runat="server" Text="Go On" /»«br /»«br /» 
«Summery:r /> 
<asp:ValidationSummary ID-"ValidationSummaryl" runat="server" /» 
</div> 
</form> 
</body> 
</html> 
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ControlToValidate لكل منهم » وقمت بتحدید ال‎ ErrorMessage قمت بتغییر‎ eae 


لكل و احدة فيهم. 
ال Regular Expression‏ اللازم تعملية الایمیل لو لم تكن قد راجعت بعض الدروس السابقة هو : 


ee mee Oa ee yepemsxqupssasco Tes‏ ا ۱ لل 
Ay oN KZA Coe amiga Sy) eu Pb od COS a? (eae AS 7 sl apo oe c E‏ 

pcs ۱ ae | Nei SERE] Se AIP E الو ی‎ A E a) einai ces 

it eS) eer lack NE Tr oe Oe es EN ات‎ Oa zs rep ae EE uber Za 
ANONS TALAR ZAAN Aa a C ENTA TEATA AAAA TEANNEN LS TEID TSAI angbsejot 


وبالنسبة للمقارنة ‏ . asa! ControlToCompare  ةيصاخ Shiga‏ لخاصية 


+e 


«ControlToValidate‏ وفي ‏ ال Range‏ خصائص MinimumValue‏ و 


.MaximumValue 


olo‏ جرب ارتکاب الاخطاء lax‏ وراء الآخر . و شاهد النتيجة: 
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Name: 


vou must eneter Name 


Age: 
100 


Password: 
12 


Retvpe Password: 


1 Ihe passwords must be the same 


A@a. invalid email address 





you must eneter Name‏ ه 
The passwords must be the same‏ + 
invalid email address‏ « 
الصورة 22. 15. عرض الأخطاء في الأداة SUMMETY‏ . 


- یمکنک معرفة المزید عن Web Parts‏ من هنا: 


رابط هج 
http://msdn.microsoft.com/en-us/library/ e0s9t4ck.aspx‏ 
- كما تری فالتصامیم التي نقوم بها حتى اللحظه بدائیه جدا » هناك o‏ یقین لتحسين تصامیمک. 


الحل القدیم بعنمد على استخدام لل CSS‏ > و هده يمكنئنت معرفه المزيد عنها هنا: 


رابط هي 
http://www.w3.org/Style/ CSS/learning‏ 
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الحل الجدید ابتداء من ASP.net‏ هو استخدام ما یعرف باسم Themes‏ یمکنک البدء فیها من هنا 


http://msdn.microsoft.com/en-us/library/ ykzx33wh.aspx 


State Management .8 


لعلک ومن خلال تجاربک في تطویر Desktop Application‏ تدرك انك وقت تعر یفک 
لمتغیر ما فسیظل هذا المتغیر محتفظاً بقیمته حتی انهاء البرنامج أو الخروج خارج ال Scope‏ 
الخاص بهذا المتغیر . الا أن هذا الو ضع tte‏ تسا في ASP.net‏ حيث ستضیع قیم المتغیرات مع 
آول تعديل . لذا كان من اللازم e‏ أن تقوم بتخزین متغیراتک وقیم Co‏ یمکنک 
استر جاعها » وهو ما سنتعرف على بعض نقنیاته في هذا الدر س. 


یمکنک تخزین القیم بواحدة من ستة طرق اساسية: 


. View state - 


. Control state 
. Application-Level Variable - 
. Cache - 


. Session - 


. Cookies 


Control State .1 .8‏ 
هي الطريقة الأسهل OLLI Blais SU‏ كل ما عليك هو تغيير القیمه EnableViewState‏ 
CY‏ أداة حتی ولو للصفحة ككل ۰ في هذه الحالة القيم الموجودة في أي من آدواتک لن تتأثر 


و ستظل محتفظة يقيمتها حتى اغلاق الصفحه. 
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لو فتحت ال HTML‏ الناتج عن المتصفح لصفحة تستخدم View State‏ ستجد الجزء التالي حيث 


يحتفظ ال ViewState‏ بقیمته. 


ASP.NET 


<input type="hidden" name="  VIEWSTATE" id="  VIEWSTATE" 


value-z"/wEPDwUKMTIxNDIyOTMOMg9kFgICAw9kFgICAQ8PFgIeBFRleHQFBWFObWVkZGRkCq8FGqyXB 
POpBDpvdnycvM5zSQE=" /» 





خطأ شائع 


Bb‏ ما تحتاج لإن تقوم cha‏ محتويات قائمة لديكت فى Gus‏ ال Form_Load‏ اغلب 


المطو رین تستخدم LM‏ التالي: 


1195550321 .Add ("Ahmed"); 
h3etbosl. .Add ("Mohammed") ; 
histBoxl. ۳۳۰۱۵۱۵ UT + s 


VB.NET 


ListBöxl,; .Add ("Ahmed") 
lhlstboxl. . Add ("Mohammed") 
ListBox 1 Add ("Ala ) 


في ot!‏ اقع هذه الطريقة متعبة جداء خصوصا لو كان ملء القائمة يتم من خلال قاعدة البیانات!!! 
الحل البدیل. هو الاعتماد على خاصية <EnableViewState‏ واستخدام الخاصية 





IsPostBack‏ للتأكد من آننا تقوم بملأها في المرة الأولى فقط بالشکل التالي: 


if (!IsPostBack) 

{ 
ListBoxl.Items.Add("Ahmed") ; 
ListBoxl.Items.Add ("Mohammed"); 
LastBox!l. tems .Add("Ali™) ; 


VB.NET 


If Not IsPostBack Then 
ListBoxl.Items.Add ("Ahmed") 
ListBoxl.Items.Add ("Mohammed") 
ListBoxl.ltems.Add("ALr") 

bud lc 
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ViewState .2.8 


طريقة آخری تعتمد على نفس المفهوم و OST‏ بعیدا هن الأدوات. due‏ یمکنک مكلا کتاية 


الکود التالي لتخزین قيمة ما بنفس الطر يقة: 


CH 


ViewState["CustomViewStateltem"] = "Ahmed"; 


VB.NET 


ViewState("CustomViewStateltem") - "Ahmed" 





و لاستعادته: 


CH 


Labell.Text = (string) ViewState["CustomViewStateItem"]; 


VB.NET 


Labell.Text = DirectCast (ViewState("CustomViewStateltem"), String) 


Session .3.8 


طريقة Algu‏ التعامل جداء وبنفس طريقة ViewState‏ السابقة مع اختلاف التکنیک فقط. 





للكتابة: 
CH‏ 


Session["mySession"] = "Ahmed"; 


VB.NET 


Session("mySession") = "Ahmed" 





و الاسنعادة: 


CH 


string name = (string)Session["mySession"]; 
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VB.NET ۱ en 


Dim name As String = DirectCast (Session("mySession"), String) 


یمکنک عمل CGY Remove‏ قيمة مخزنة فى الکائن SESSION‏ بالشکل التالی: 





CH 


Session.Remove["mySession"]; 


VB.NET 


Session.Remove ("mySession") 





كما أن هناك خاصية Timeout‏ والتی تحدد فترة احتفاظ ال SESSION‏ بقیمته بالدقائق › 


و افتراضیا هی 20 دقيقة: 


C كود‎ 


H 
Session.Timeout = 5; 


VB.NET 


Session.Timeout = 5 





Cookies .4.8‏ 
طريقة آخری من وسائل الاحتفاظ بالقیم ولکن عند جهاز العمیل» Com‏ يتم الاحتفاظ بهده القیم 
في ملفات نصية ( في اغلب الاحیان ) و لکن ينبغي مراعاة ان یکون متصفح العمیل یسمح بمثل هذه 
العملية 2 وهي الطريقة الأكثر شهرة في الاحتفاظ بمعلومات الدخول والتسجیل في المواقع 

المختلفة وهي مشتقة من system.Web.HttpCoOokie aiat‏ 


سنجرب OY!‏ مثالا على الکو کیز ۰ حیث سنقوم بتسجیل اختیار المستخدم من الألوان - 
اللون الاخضر أو الآحمر متلا cc‏ ومع كل تشغیل للموقع في حاله وجود كو كيز يتم استخدام 
اللون المفضل c‏ والا يتم اللجوء للون الافتراضي وهو الأصفر مثلا. 


سنقوم برسم الصفحة او لا باللون الافتراضي الأصفر: 
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&nbsp:«/p» 
casp:ranel ID€9"FrFanell" runat""scrver" Heighte9"i134px" Widrnh-"446px" Backcolor-"iellow"- 
(=. pihal i J از‎ pd J Leb الا‎ a | 1 z E E F ? 








EDE f. 
casp:RadioButton ID9"RadioButtonl" runat="server" Texte" ri" es 
ebr > 

zasp:RadiíioBurrton IDe"HadioBuüurtronz 


m [LI 


rünare-"aerver 
oncheckedchanged-"RadioButtonz CheckedChanged" Text-" pasi" /» 
«br ١ 


«br /5 
£asp:Buttan 1 سن‎ ۷۳۵۴۴۶ " runat="server" 1۲ "تطمدق ۷ بزع‎ i> 


c/asp:rAnel» 





[E] Design view i5 out of sync with Source view. Click here to synchronize views. 


asp:PanelzPanell 








الصورة 22. 10. المظهر العام للصفحة. 
الکود الخاص يها: 


ASP.NET 


«asp:Panel ID="Panel1" runat="server" Height="134px" Widthz"446px" 
BackColor="Yellow"> 

:«br />‏ المطلوب اللون باختبار قم 

«br /» 

«asp:RadioButton ID-"RadioButtonl" runat="server" Text-" آخضر‎ " 
GroupName-"colors" /» 

«br /» 

<asp:RadioButton ID="RadioButton2" runat="server" 

oncheckedchanged-"RadioButton2 CheckedChanged" Text="j0.>\" 

GroupName-"colors"/» 

«br /» 

«br /» 

<asp:Button ID-"Buttonl" runat="server" Textz-z"ü.d5" 
onclick-"Buttonl Clickl" /» 
«/asp:Panel» 


والآن » سنقوم بانشاء کو کیز نخزن فيه اللون المختار حالیا بالشکل التالي في حدث الضفط على 


زر ( تطبیق ) » وسنعطي هذا الکو کیز تاریخا للانتهاء: 
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3 color; 
if (RadioButtonl.Checked) 
{ 
color = "Green"; 
Panell.BackColor = System.Drawing.Color.Green; 
} 
else if (RadioButton2.Checked) 
{ 
color = "Red"; 
Panell.BackColor = System.Drawing.Color.Red; 
} 


else 


color = "ws 
HttpCookie Cookie = new HttpCookie("myColor", color); 
Cookie.Expires = DateTime.Parse ("01/01/2009"); 
Response.Cookies.Add (Cookie); 


Dim color As String 
If RadioButtonl.Checked Then 

color - "Green" 

Panell.BackColor = System.Drawing.Color.Green 
ElseIf RadioButton2.Checked Then 

color = "Red" 

Panell.BackColor = System.Drawing.Color.Red 


Dim Cookie As New HttpCookie("myColor", color) 
Cookie.Expires = DateTime.Parse("01/01/2009") 
Response.Cookies.Add (Cookie) 





MYCOLOY و جود‎ Alle للتشغیل. سنقوم بقراءة الکو کیز. وفى‎ Form Load في حدث ال‎ olo 


فسینم معرفة قيمته: 


if (Request.Cookies["myColor"] != null) 
{ 


string color = Request.Cookies["myColor"].Value; 


if (color == "Green") 

Panell.BackColor = System.Drawing. Color.Green; 
else if (color == "Red") 

Panell.BackColor = System.Drawing. Color. Red; 
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If Request.Cookies("myColor") IsNot Nothing Then 
Dim color As String = Request.Cookies ("myColor").Value 
If color = "Green" Then 


Panell.BackColor = System.Drawing.Color.Green 
ElseIf color = "Red" Then 
Panell.BackColor = System.Drawing.Color.Red 
End If 
End Ir 





Application .5.8 


طريقة آخری مشتقة من dttpApplicationState‏ ولکن من خلالها لا يتم تخزین 
البیانات لعمیل واحد . بل يتم تخزين بیانات يمكن ان تصل لجمیع العملاء . ابسط مثال لها هو عدد 
الزوار والدي ينبغي ان یکون موثرا عند arom‏ العملاء و لیس deoc‏ واحد فقط. 

تحتوي هذه الفتة على الدوال و الخصاتص التالیه: 


الخاصية أو الدالة الو صف 


استعراض arom‏ العناصر الموجودة 


clout!‏ او عدم clout!‏ بتعديل المجموعه 





الجدول 22. 6. أهم دوال وخصائص الفئة HttpApplicationState‏ 


یمکنک اضافة عنصر جديد Application‏ جديد بالشكل التالي: 
CH‏ 


Applrcation|" Wisrtors"] = 1} 
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VB.NET 


Application ("Visitors") = 1 





ويمكن استعادتها في مربع عنوان مثلا: 


CH 


labelVistor.Text = (string)Application["Visitors"]; 


VB.NET 


labelvistor,Text = DirectCast (Application ("Visitors") .ع‎ String) 


Application [| "Visiter | = ((unbt)ipolicartion|"Vislter"!) 


VB.NET 


Aoplrcatronu("VibBibLor") = CINC Apolication ("Visivor”) ) 





لاتنس ان محئویات Application ul‏ قد لا تکون نص baa‏ . بل ad‏ تکون مصفوفة من Ciliall‏ 


Cache .6.8 


تقنية آخری مختصة بالتطبیق عند جميع آجهزة العملاء » 9 (Sd‏ یمکنک تحدید قترة معينة 
فقط لها » لانشاء‌ها نستخدم الأمر التالی مثلا: 


CH 


Context.Cache["myCache"] = "hii, my first cache"; 


VB.NET 


Context.Cache("myCache") = "hii, my first cache" 
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CH 


string myCache = (string)Context.Cache["myCache"]; 


VB.NET 


Dim myCache As String = DirectCast (Context.Cache("myCache"), String) 





آخر جزئية Low‏ في موضوع التخزین هي استخدام ملف Global.asax‏ لتخزین متغیرات 


Global‏ ودوال یمکن الوصول Led!‏ من اي صفحة . قم باضافة عنصر جدید وقم باختیارها بالشکل 


| Visual Studie installed templates 


= x sx اقا‎ [7 


WebForm MasterPage WebUser AJAX Client AJAX Client AJAX Client AJAX Master 
i Behavior Contrel Library 


DataSet 


Browser File Class | Crystal 


A A 


Resource File Site Map Skin Fi Style Sheet Text File 


Wizard 
sg mS SS gx 


A class for handling Web Application events — 








Name: Global.asax 


Language: isual Cs = [ ]Place code in separate file 
| [ ]Select master page 
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.Global.asax cate الصورة ۰.22 17. اضافة‎ 


تعد اضافتک لهده الصفحة » ستجد بها افتر اضیا الأكواد التالیة: 


using System; 
namespace myWebSite 
{ 
public class Global : System.Web.HttpApplication 
{ 
protected void Application_Start (object sender, EventArgs e) 
{ 


} 


protected void Application_End(object sender, EventArgs e) 
{ 


} 


protected void Application_Error (object sender, EventArgs e) 


{ 


} 


protected void Session_Start (object sender, EventArgs e) 


{ 
} 


protected void Session_End(object sender, EventArgs e) 


{ 
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VB.NET 


@ Application Language="VB" 
<script runat="server"> 

Sub Application_Start (ByVal sender As Object, ByVal e As EventArgs) 
' Code that runs of application startup 

End Sub 

Sub Application End(ByVal sender As Object, ByVal e As EventArgs) 
' Code that runs on application shutdown 

End Sub 

Sub Application Error(ByVal sender As Object, ByVal e As EventArgs) 
۲ Code that runs when an unhandled error occurs 


End Sub 
Sub Session Start(ByVal sender As Object, ByVal e As EventArgs) 


۲۰ Code. that runs when a new session 15 started 


End Sub 
Sub Session End(ByVal sender As Object, ByVal e As EventArgs) 
۲ Code that runs when a session ends. 
۲ Note: The Session End event is raised only when the sessionstate mode 
۲ is set to InProc in the Web.config file. If session mode is set to 
oLaLe5server 
۲ or SQLServer, the event is not raised. 
End Sub 
ECTS 





و كما لاحظت > تحوي هذه الصفحه على تعريفات لدوال anu)‏ خاصه بالتعامل مع حافة انواع ال 
State Management‏ اضافة لحالة حدوث الأخطاء Application Error‏ وغيرها من 
دوال تفيد في ادارة كامل صفحات المشروع > ويمكنت الاستفادة منها في arom‏ استخداماتک 


لعناصر State Management‏ المختلفة التى تعرفنا عليها فى هذا الدرس. 


ASP.net .9‏ و قواعد الببانات 


سنأخن Age OF!‏ سريعة في عالم قواعد البيانات مع ASP.net‏ في الواقع لن تحتاج لأكثر 
من المعلومات التى تعلمتها فى دروس (Quo; ADO.Net‏ سنطبقها هنا. 
fa‏ سنقو م dal‏ يعمل موقع بسيط يقوم مقط يقراءة أسماء من قاعدة البيانات وطباعتها 
للمستخدم » سنستخدم قاعدة بيانات تحتوي مبدئیا على اسم المنتج وسعره ۰ فقط هذا هو الکود 
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SqlConnection cn = new SqlConnection(Gü"Data Source=AHMED-PC\SQLEXPRESS; Initial 
Catalog=Items; Integrated Security-True;Pooling-False"); 

cn.Open() ; 

SqlCommand cmd = new SqlCommand("select * from Items", cn); 

SqlDataReader dr = cmd.ExecuteReader(); 

while (dr.Read() ) 

{ 


Response.Write ("<b><font color=blue> Item Number: </font></b>" + 
adr sGetinte4(0)..Tostring() + "<br/>" )-; 

Response.Write ("<b><font color-blue» Item Name: </font></b>" + 
dr GeEestring (1) + Tablero 

Response.Write ("<b><font color=blue>Item Price: </font></b>" + 
Or © - د دس وائى‎ (2) <Tostring() + "ABEST" 
) 


VB.NET 


Dim cn As New SqlConnection("Data Source-AHMED-PCNSQLEXPRESS;Initial 
Catalog-Items;Integrated Security-True;Pooling-False") 
cn.Open() 
Dim cmd As New SqlCommand("select * from Items", cn) 
Dim dr As SglDataReader = cmd.ExecuteReader() 
While dr.Read() 

Response.Write("«b»«font color-blue» Item Number: </font></b>" + 
droGeblnrte2(0).ToString(Q + TAET) 

Response.Write("«b»«font color-blue» Item Name: </font></b>" + 
dgrGetotrisqg(l) + EDET) 

Response.Write("«b»«font color-blue-Item Price: «/font»«/b»" + 
dr.GebrInt64(2).ToString().- "ehr/") 








End While 

xU! 
Item Number: 1 = 
Item Name: Car Game: 
Item Price: 50 
i yrs cs الصورة 22. 18. نتائج تنفين الشفرة.‎ 
Item Price: 10 الآن سنجمل عملية العرض قلیلا. سنستخدم بعض‎ 
Item Number: 3 الصورة»‎ dal) fae الجداول كما سنضیف لقاعدة البیانات‎ 
Item Name: Apple في ذة مسار‎ images فى مجلد‎ sell paw Gas 


Item Price: 15 

البرنامج والتي سنعرضها لكل منتج - الکود سیکون بالشکل 
التالى: 4 Item Number:‏ 
Item Name: Fish E:‏ 
Item Price: 85‏ 
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SqlConnection cn = new SqlConnection(Gü"Data Source=AHMED-PC\SQLEXPRESS; Initial 
Catalog-Items;Integrated Security-True;Pooling-False"); 
CN; ODOR, 
SqlCommand cmd = new SqlCommand("select * from Items", cn); 
SqlDataReader dr - cmd.ExecuteReader(); 
Response.Write("«center»«table border=1><tr valign=center align=center 
bgcolor=#AAAAAA><td><b>Item No.</b></td><td><b>Item Name</b></td><td><b>Item 
Prige=/p>=/ta eta ebobpampls«/bo«/rtg-e/rrs"v)s 
while (dr.Read()) 
{ 
Response: Wrive (FETE TIS EDT + dr.Getlnto4(0).To5tring() + "eJb2e€/rtd»s"); 
Besponse.Wwrite("4epg t + or.<GerString(1) + "pg". 
Response.Write ("<tae" + dr.GetlInte4(7).ToString() + "x/td>"j; 
Response.Write (@"<td><img src='images/" + dr.GetString(3) + 
له از عن‎ alae ue ee 
) 


Response.Write("«/table»«/center»"); 


VB.NET 


Dim cn As New SqlConnection("Data Source-AHMED-PCNSQLEXPRESS;Initial 
Catalog-Items;Integrated Security-True;Pooling-False") 

cn. Open )( 

Dim cmd As New SqlCommand ("select * from Items", cn) 

Dim dr As SqlDataReader = cmd.ExecuteReader() 

Response.Write ("<center><table border=1><tr valign=center align=center 
bgcolor=#AAAAAA><td><b>Item No.</b></td><td><b>Item Name</b></td><td><b>Item 
Pricec/b-«/td»«td»«b»BSample«/b»«/td»«/tr»") 

While dr.Read() 


Response.Wrrte("«sLro«Ltdgseebo" qdr.GetlHt64(0) .ToStrimgi() b PD OT) 
Besponseo.Writei['ebpao" + dr.Getstring(lb) s FET) 
Response, Write("<td>™ + deée.Gcertlnto2(2),.Tobtring() + "erae 
Response.Write("«rtd»«img sro-'images/" + dr.GetString(3) + "'»«/td»«/tr»") 
End While 
Response.Write ("</table></center>") 





والناتج سیکون بالشکل التالي مثلا: 
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الصورة 22. 19. نتائج تنفين الشفرة. 
*** هذه هی نفس الطريقة التى كنا نطبقها فى عالم o3. ASP Classic‏ سنتعرف على بعض 
التسهیلات التي تتیحها لنا ال Met‏ 


DataGrid .1.9 


تعتبر هذه الاداة اكثر ادوات البیانات شهرة مع “ASP.net‏ سنجرب OF!‏ التعامل معها... 
قم برسم ‘DataGrid‏ قم برسم مربع نص 559 آمر من dal‏ عملية البحث. ومن ثم قم بسحب 
oqiDataSource‏ ونقوم بربطها بجدو لنا بالشكل التالي: 
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Which data connection should your application use to connect to the database? 
| ahmed-pe\sqlenpress.ltems.dbo - | New Connection... | 


(=) Connection string 
Data Sources AHMED-POVSQLEXPRESS'" Integrated Secunityz True Poolingz False-initial Catalogs items 


























salt‏ 5 3 22. 20. تهيأة مصدر البیانات. 
سيطلب منک là»‏ حفظ ال ConnectionString‏ . اضغط .Next‏ 
في الخطوة الثالثة سيطلب منک تحديد مصدر البيانات » قم باختيار كافة محتويات الحقل: 
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Configure Data Source = SqiDataSourcel 


1 Configure the Select Statement 
لوه‎ 


How would you like to retrieve data from your database? 
O Specify م‎ custom SQL statement or stored procedure 
& Specify columns from a table or view 
Name: 
| Items 
Columns 


0| | [71 Rebun only unique rows 
71D | WHERE... | 


Fi ltemMame 


^] IternPrice | ORDER BY | 
| | IbemPicture ۱ i 
| Advanced... | 








SELECT statement: 
SELECT * FROM [Items] 




















Cancel 



































الصور ô‏ 2. 21. تهيأة مصدر البیانات. 


و نحدد نوعه Control asi‏ ونضع اسم مربع النص بالشکل التالي: 
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m n an Da شقا‎ n —— کت کت کیت‎ RR PRICE ا‎ PHP M Lir. 
E Configure Data Source - SalDataSourcel L9 | x اد‎ 


iresSalDatasoumel| — 
e- : : tur scab : ۱ | 
۱ Configure the Select Statement 

| = | 





m E a 


Add WHERE Clause 


p - — —— — سیسوس‎ —— 


Add one or more conditions to the WHERE clause for the statement. For each condition you can specify either a literal value or 
a parameterized value. Parameterized values get their values at runtime based on their properties. 










































Column: Parameter praperties 
ItemPrice m | Control ID: 
۱ Operator: TetBod -| | E Return only unique rows 
7 Default value: | 

0 

Control i 
SQL Expression: Value: ۲ 
[temPnce] > SltemPrice TextBoxl.Text ۱ 
WHERE clause: : i 
i 
کک ڪڪ ڪڪ‎ i 
| Cancel | 


الصو 5 3 22. 22. اضافة شروط على البیانات. 
فقط یمکنک تجرية ال Query‏ ۰ اضغط انهاء. 


OF!‏ سنقوم بالعودة إلى ال DataGrid‏ قم باختیار DataSource‏ لها لیکون ال 
60 الذي قمنا 


بانشاءه منن قلیل بالشکل التالی: 


BO erg Pep Y Pues d D 





ID ItemName ItemPrice ItemPicture || GridView Task 
- | 











1 
: Configure Data Source... 
3 mei o: الصورة 22 23 تعیین‎ 
dit Columns... 
Ad New Columa ^ „Data Grid البیانات الخاص بال‎ 


[^] Enable Paging 
۲ ۱ Enable Sorting 
[E] Enable Selection وفقط . قم بتجريه البرنامج . قم‎ 


Edit Templates 
] باختیار ار قام مختافة و الضغط‎ 
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على زر Enter‏ » الناتج سیکون Lind‏ مشابها لهذا: 


ou تلحنا سعر‎ E عن اهنا‎ Ch ajl 
emPrice ItemPicture 
10 ۰ 08۵82 jpg 





الصورة ۰.22 24. عرض البیانات على ال .Data Grid‏ 
خصائص اضافية 


سنتحدت OY!‏ عن بعض الخصائص الاضافية المر فقة بهنه الأداة › او لها هى المظهر . 


یمکنک تعدیل المظهر من خلال CSS‏ خاص» ویمکنک الاختیار بين المو جود بالشکل التالي : 


AutoFormat 


ID ItemName ItemPrice Ite 
© 






mPicture| <| GridView Tasks 
ENT c 


| 


ose Data source: SqiDataSourcel 


5 


Preview: 0 





Lilacs in Mist 
Black & Blue 1 
Black & Blue 2 
Clover Field 
Apple Orchard 


Mocha 










Configure Data Source... 
Refresh Schema 

Edit Columns... 

Add New Column... 


سس 
abc 0 abc‏ 


abc 


abc 
abc 


abc 








1 
> 





73 
3 


4 


Move Column Left 
Remove Column 
[F] Enable Paging 
۱ Enable Sorting 
|. | Enable Selection 


Edit Templates 

















2GridView) > 


CSS باستعمال ال‎ Data Grid تهيئة طريقة عرض ال‎ .25 .22 5 5 sa 
یمکنک السماح بو جود‎ GridView النقطة الثانية ۰ هي السماح بالعملیات المختلفة على آداة‎ 
الصفحات : والاختیار والتر تیب ایضا:‎ 
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Auto Format... 








Choose Data Source: | SqlDataSourcel 


| لصو رة 2 2 6 2 اختيا 9 العنا حدر في Configure Data Source...‏ 
Refresh Schema‏ 


Edit Columns... J | علی عکس‎ D a t a Gr 1 d J ۱ 


Add New Column... s : 
Move Column Left ۰ Gr L d Vi e W 











Remove Column Z 

[V] Enable Paging بالشعل التالي:‎ Loci الناتج سیکون‎ 
Enable Sorting 

Enable Selection 

Edit Templates 





mE E a do 











الآن سنجرب وضع حدث للاختیار. یمکنک لايدى عن التائ کون 50 


قراءة السجل المجدد باستخدام: 
ID ItemName ltemPrice ۵‏ 





EE ۱ 
Select 3 oranze.jpg 


select 3 Apple 15 apple. jpg 


C# 


string something = GridViewl.SelectedRow.Cells[0].ToString(0(); 


VB.NET 


Dim something As String 
something=GridViewl.SelectedRow.Cells (0) .ToString )( 





EH AlternatingRowstyle 
AutoGenerateColumns False 
AutoGenerateDeleteButtoi True 
AutoGenerateEditButton. True 


AutoGenerateSelectButtorB it's [æ] 
xr 








تسمح Ul‏ هذه الخصائص بعملیات الحذف والتعدیل والاضافة . بالشکل التالي مثلا: 
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| ItemName ; ItemPrice ItemPicture 
Edit Delete Select Select 1 Car Grames 50 car .Jpg 





Update Cancel 2 Orange with apple] | 10 orange. 09 
Delete Select Select 3 Apple 15 apple jpg 
Edit Delete Select Select. 4 Fish 85 fish. jpg 


الصورة   .22‏ 27. ممکانیات العرض ‏ الاضافية ‏ التی توفرها ‏ الخصائص 
..AutoGenerateEditButton‏ 

هناك ایضا ادوات اخری مثل FormView‏ و DetailsView‏ والتي تستخدم pall R‏ ض و خلاقه. 
لكل هذه الادوات ۰ یمکن التعدیل في خصائص الأعمدة واسمائها حسب ما ترید بالشکل التالي مثلا: 


| | ID | ItemName | ItemPrice |ItemPicture B GridView Tasks 
| | Auto Format... 





















15 = س 
Choose Data Source: | SalDataSourcel 5‏ |4 
Configure Data Source... ER‏ 
em 3‏ 
Available fields: BoundField properties: pes i‏ 
(All Fields) | rn | |‏ ]1$ 
FEL T Add Mew Column...‏ 1 55 
AccessibleHeaderT ext Enable Paging‏ 
El Appearance | | Enable Sorting x‏ 
[Z] ItemPicture P J| Enable Selection ;‏ 
سس —— سح( CheckBoxField | HeaderlmageUH‏ 
eae Edit Templates r‏ = 
E] Huner inkField | TN‏ 
À Be EN‏ 
ApplyFormatinEditMad: False Ce‏ 
Selected feld: ConvertEmptyStringTol True S Ce‏ 
HtmlEncode True | C‏ 
T New N | HtmilEncodeFormatStrir True Cs‏ 
InsertVisible False xi‏ | بت 3 
temame :‏ |= 
Auli Text :‏ : ۳ 
De‏ ا | El ItemPrice‏ 
ITI Kemf'icture HeaderText m‏ 
The text within the header of this field. p‏ 
Auto-generate fields ert this field i T | "||| Data‏ ]^[ 
a The:‏ 
data‏ || |^ 
اال HE pema‏ 
Ln 50‏ 


الصورة 22. 28. تعدیل خصائص الاعمدة. 


كانت هذه جولة سريعة في عالم قواعد البیانات مع ASP.net‏ باقي التفاصیل تجدها في الدروس 
الاساسية لل ADO.net‏ 
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WAP .10 


فى هذا الدرس. سوف نتعرف سوية على التقنية المعروفة باسم Protocol Wireless Application‏ 
والتی تقرف اختضارا باسم (WAP‏ كما سنتطرق فى الجزء الثانى من هذا الدرس إلى كيفية 
التعامل مع هذه التقنية من خلال het‏ 


0 ماهي WAP‏ با 


Mobile Application تطبیقات الموبایل‎ 


لم يعد الموبایل 9 سيلة اتصال بسيطة لاجراء المکالمات الهاتفية مثلما كان الهدف منه و قت 
ظهوره » إنما تطور الأمر GYI‏ لیصبح الموبایل وسيلة خدمية وترفيهية وتعليمية أيضاً . ولم يعد 
Jul gol!‏ يستخدم من أجل المکالمات بل آصبح یستخدم في الدخول على الانترنت و استخدام 
التطبیقات المتقدمة و الملتیمیدیا و غیرها . 


و لهدا السبب وغیره ظهرت مصطلحات جديدة Jud‏ على تطبیقات الموبایل ويرامجه و نظم 
التشغیل الخاص cdr‏ وکان من ضمن هذه المصطلحات مصطلح WAP‏ مردافا لمصطلح WEB‏ على 
الحاسبات الشخصية والذي پر تبط بعالم الانترنت و خدماته . 


ما هو ال WAP‏ + 


كما اس سا فكلمة WAP‏ هي اختصار تکلمة Wireless Application Protocol‏ و ما هو 


واضح من الاسم فان هذا يعني ان WAP‏ هي معیار أو Standard‏ عالمي يهدف إلى ربط أجهزة 
الهواتف النقالة Mobiles‏ بالإرتباط بالإنترنت » وتم تطويره فى النصف الثانى من تسعينات القرن 
المنصرم . 


وقد cle‏ هذا البروتوكول الموحد ليلم شتات أفكار شركات المحمول الكبرى والتي كانت كل 
منها تعمل منفردة وفى اتجاه مختلف عن الآخرين . 


حيف تعمل WAP‏ ؟ 


تتميز WAP‏ عن WEB‏ بأنها تعمل فى اطار امكانيات الهواتف المحمولة 2 وهذا ما يستلزم 
بالضرورة تصغير حجم البيانات والتعامل مع ضعف السرعه و ضعف قدرات المعالجات الخاصه 
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بالاجهزة المحمو A‏ مقارنة بالاجهزة الشخصية وصغر حجم الشاشة التی يتم عرض البیانات من 
خلالها أیضا . 


ومن خلال تقنية ال WAP‏ تم لم شمل شتات شر کات المحمول الکبری والتي كانت كل منها 
تمسر NU TTE TR DTE IT‏ خدمات 28 25 على EST‏ السحومونة , 


وتبداً قصة ال WAP‏ من خلال طلب العمیل ل URL‏ معین لصفحة ما أو لملف و »4854 ۰ وفي حالة 
طلب صفحة فانه يتم ترجمة HTML‏ إلى WML‏ وهي طريقة عرض مناظرة لل HIML‏ يتم 
استخدامها ضمن بروتوحول ال WAP‏ وسوف نشرحها في الفقرة التالية . 


والجدیر بالذكر أن بعض الهو اتف المحمو له آصبحت تدعم HIML‏ أيضا pra‏ 


WML .2 .10 


هي طريقة لوصف البیانات مشابهة جدا لطريقة عمل HTML‏ ولکنها على معاییر XML‏ 
وتختلف عن HTML‏ في sae‏ من النقاط منها : 


«html» من‎ Yas <wml> الرئيسي هو‎ Tag الوسم‎ - 


- ينقسم المستند إلى بطاقات Cards‏ لتسهیل العرض حيث تبدأ كل يطاقة ب «Card»‏ و تنتهی 
li‏ ان card»‏ 


بداية سنعرض مثالا یوضح كيفية کتابة WML‏ وذلك بالشکل التالي مثلا - من ویکیبدیا - : 


<?xml version="1.0"?> 
<!DOCTYPE wml PUBLIC "—-//PHONE.COM//DTD WML 1.1//EN" 
"http: //www.phone.com/dtd/wmll1.dtd" > 


<wml> 
«card id="main" title="First Card"> 
«p mode="wrap">This is a sample WML page. </p> 
</card> 
«/wml» 





قراءة القیم المخنلفه وتخزينها x69‏ ضها للمستخدم : 


: بساطة یمکنک تعریف المتغیرات واسناد قیم نها بالشکل التالي‎ JS 
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WML 


«setvar name-z"First Name" value="Ahmed"/> 
«setvar name="Age" value="21"/> 





و لاحقا یمکنک عرضها بالشکل التالي مثلا : 






WML | Ta 

«p»First Name: $(First Name)c«/p» 

ویمکن ایضا قراءة قيمة مربع نص أو Select‏ بنفس الطريقة تماما حيث يتم وضع اسم الأداة 
بدلا من اسم المتغیر ... 





مثال Sel pat‏ قيم آداة اختیار وعرضها للمستخدم — JUs‏ منقول - : 


«card id-"cardl" title="Tutorial"> 

«do type="accept" label="Answer"> 

<go href="#card2"/> 

</do> 

<p> 

<select name="name"> 

<option value="HTML">HTML Tutorial</option> 
<option value="XML">XML Tutorial</option> 
<option value="WAP">WAP Tutorial</option> 
</select> 

</p> 

</card> 

«card id-"card2" title="Answer"> 

«p» 

You selected: S(name) 

«/p» 

«/card» 

«/wml» 





WAP+ASP.net .3 .10‏ 
ادا قمنا بتحویل التطبیق الذي عرضناه في آول المقالة - المنقول من ویکیبیدیا - والذي كان 
بالشکل التالي : 


<?xml version="1.0"?> 
<!DOCTYPE wml PUBLIC "-//PHONE.COM//DTD WML 1.1//EN" 
"http: //www.phone.com/dtd/wmll1.dtd" > 


<wml> 
«card id="main" title="First Card"> 
«p mode="wrap">This is a sample WML page. </p> 
</card> 
«/wml» 
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وقمنا بتحویله إلى NET‏ فسوف یکون بالشکل التالي : 


ASP.NET 


8 Page Inherits="System.Mobile.UI.MobilePage" Language="C#" 
@ Register TagPrefix="mobile" Namespace="System.Mobile.UI" 
<mobile:Form runat="server"> 


<mobile:Label runat="server"> 
This is a sample WML page. 
«/mobile:Label» 
«/Mobile:Form» 


في Alb‏ رغبت في التعامل بواسطة VB.net‏ غير السطر الأول فقط لیصبح بالشکل التالي : 





ASP.NET | em 





8 Page Inherits="System.Mobile.UI.MobilePage" Language="C#" 


والآن عند طلب الصفحة من قبل العميل» يتم Yai‏ تحویل الصفحه إلى WML‏ فى atte‏ كان 
الطلب من جهاز هاتف محمول › أو يتم التحويل مباشرة إلى HIML‏ في حالة طلب الموقع من 


جهاز شخصي أو كومبيوتر كفي . 


كان هذا أبسط مثال لتطبيق WAB‏ من خلال NET.‏ . ولکن ما زال يامكانكت عمل الكثير فى هذا 
المجال في موضوع برمجه الموقع عموما2 وفي التعرف على الأجهزة الزائرة وامكانياتها وغير 
ذلك من الخيارات المتقدمة خصوصا . 


Ajax 1 


قى هذا الدرس الأخير حول ASP.net‏ سنستعرض سریعا کيفية الاستفادة من خدمات تقنية 


الاتترنت المعر 439 باسم AJAX‏ من خلال het‏ 


1 . اجاکس Ajax‏ 
هي اختصار لكلمة Asynchronous JavaScript and XML‏ ۰ وقي الواقع فهي ليست Aad‏ بر مجة 
جديدة أو تقنية جديدة قدر ما هي استخدام للموارد الموجودة بطريقة آخری . وببساطة . تعتمد 
اجاحکس على تجزيء الصفحة إلى عدة اقسام تتم معالجة كل قسم على حدة ۰ وفي هذه الحالة 


انه خن ظلت العميل الجزع ما لن کون مخنظر لانتضار. تحديت maa]‏ باكامل. 


638 


الباب الثانی و العشرون البروجة باستخدام ال ASP.net‏ 


ولعل آشهر أمثلة استخدام AJAX‏ هو البرید الالکترونی Gmail‏ اضافة إلى النسخة الجدیدة من 


البرید الالکترونی لل Yahoo‏ و Hotmail‏ . 


لمعرفة المزيد ريما تستطيع زيارة صفحه ويكيبديا عن هذه التقئية: 


رابط هج 





s .net من خلال‎ isi كيف‎ 





قامت مايكروسوفت باصدار عدة نسخ من الأدوات التي تساعدك وتسهل الحصول على المميزات 
المتاحه فى AJAX‏ > لكنك على ايه حال تستطيع pleat!‏ بهذا الأمر فى daa‏ صوره يدويا > أو 


باستخدام ما يسمى باسم Atlas‏ و هي نسخه من مایکر 9 سوقت خاصه ب AJAX‏ . 


وللمزيد من التسهيل قامت مايكروسوفت باصدار Asp.net Ajax ToolKit‏ ۰ وهي مجموعة من 


الأدوات المختلفة التى يمكن استعراضها من خلال هذا الر ابط 


رابط هج 
http://ajax.asp.net/ajaxtoolkit/‏ 
تستطیع زيارة الموقع و تحمیل هذه الادوات من خلال 43 ابط : 


رابط هج 
http://ajax.asp.net/‏ 
كما یوفر الموقع مکتبة ضخمة من المواد التعليمية لهنه الأدوات ول ASp.net‏ عموما ۰ یمکن 


الو صول الیها عبر هذا الرابط: 


رابط هي 
http://www.asp.net/learn/default.aspx?tabid=63‏ 
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یمکنک البدء من خلال هذا الفید یو تحد ید ا: 


S9 رابط‎ 
http://download.microsoft.com/download/0/f/6/ 0f651a0f-6f2b-4497-b061- 
e1b2825e22e0/MSA| AX-ToDoList-Video.zip 


وسیقوم بالشرح مند البداية عن كيفية استخدام Atlas‏ 
وهناك دروس آخری لشرح كيفية البدء باستخدام Ajax ToolKit‏ مباشرة منها هذا الفیدیو: 


رابط هج 


http://www.asp.net/learn/videos/view.aspx?tabid263&id-75 
http://www.asp.net/learn/videos/view.aspx?tabid263&id-76 








والآن ۰ سنبداآ فى عمل تطبييقنا الاق seach‏ 


جرب عمل مربع نص لتعرض فيه الوقت الحالي » ايضا قم باضافة صورة لتستطيع تمميز تحديث 
الصفحة » ومن ثم قم بكتاية الكود التالى فى زر الآمر 


CH 


TextBoxl.Text = DateTime.Now.ToString(); 


VB.NET 


TextBoxl.Text - DateTime.Now.ToString() 
هل لاحظت ما یحدث . بالفعل يتم تحديث الصفحة بالکامل . الآن سنحاول تطبیق نفس المبدء‎ 





بحیث لا يتم التأثير سوی على الجزء الذي سیتم التعدیل فيه 


لذا قم بداية ياضافة SCriptManager‏ من ضمن ادوات اجاكس بالشكل التالي: 
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+ WebParts 

t Pointer 

eo ScriptManagerProxy | 
ScriptMan 


(3 Timer ae mY 
ersion 3.: 
| UpdatePanel 





MET Com 
ال‎ UpdateProgress ۱ ۱ 


+) Reporting 
+) HTML 
= General 


sal‏ 5 5 22. 28. تعدیل خصائص الاعمدة. 


oM!‏ قم يسحب ‘UpdatePanel‏ وقم Bee‏ مريع o2!‏ وزر الأمر بداخلها مع ترك الصوره 
فقط في الخارج » سیکون كود الصفحه بالشکل التالي: 
ASP.NET‏ 


8 Page Language="C#" AutoEventWireup-"true" CodeFile="Default6.aspx.cs" 
Inherits="Default6" 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http: //www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> 
«html xmlns="http://www.w3.org/1999/xhtml"> 
«head id="Head1" runat="server"> 
<title>Untitled Page</title> 
</head> 
<body> 
<form id="form2" runat="server"> 
<div> 
«img src="images/food. jpg" /» 


<asp:UpdatePanel ID="UpdatePaneli" srunat="server"><ContentTemplate> 


<br /> 

<br /> 

<asp:TextBox ID="TextBox1" runat="server"></asp: TextBox> 

<br /> 

<asp:Button ID-"Buttonl" runat="server" onclick-"Buttonl Click" 
Text-"ShowTime" /» 
«/ContentTemplate»«/asp:UpdatePanel» 


</div> 

</form> 
</body> 
</html> 
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٩٩ جرب » هل لاحظت الفارق فعلا‎ olo 


جميل OYI:‏ سنحاول تطبیق موضوع آخر ماذا لو افترضنا اننا نرید وضع زر الامر خارج ال 


update panel‏ بحیث لا يتم تحديثه » هذا ممکن. 


فقط اسحب زر الأمر خارج ال gä: Update Panel‏ بكتابة الکود التالي داخل ال update panel‏ 


ASP.NET 


<Triggers> 


«asp:AsyncPostBackTrigger ControlID-"Buttonl" EventName="Click" /> 
</Triggers> 





لیصبح الکود كاملا بالشکل التالي: 


ASP.NET 


«2 Page Language="C#" AutoEventWireup-"true" CodeFile="Default6.aspx.cs" 
Inherits="Default6" 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtmll/DTD/xhtmll-transitional.dtd"» 
«html xmlns-z"http://www.w3.org/1999/xhtml"» 
«head id-"Headl" runat="server"> 
«title»Untitled Page</title> 
«/head» 
«body» 


«form id="form2" runat="server"> 

<asp:ScriptManager ID-"ScriptManagerl" runat="server"> 
</asp:ScriptManager> 

<div> 

«img src="images/food. jpg" /» 

<asp:UpdatePanel ID="UpdatePaneli" runat="server"><ContentTemplate> 


<br /> 
<br /> 
<asp:TextBox ID="TextBox1" runat="server"></asp: TextBox> 
<br /> 


«/ContentTemplate» 
<Triggers> 
«asp:AsyncPostBackTrigger ControlID-"Buttonl" EventName="Click" /> 
</Triggers> 
«/asp:UpdatePanel» 

<asp:Button ID-"Buttonl" runat="server" onclick-"Buttonl Click" 
Text-"ShowTime" /» 


</div> 

</form> 
</body> 
</html> 
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الباب الثانی و العشرون البرمجة باستخدام ال ASP.net‏ 


هن Lal dus Y‏ 3 212554 
عوده لقو اعد البیانات 


سنعود لتطبيقنا الآخير حول قواعد البیانات 2» جرب وضع صورة في الصفحه . و جرب وضع اي 
قيمة في حقل السعر الأقصى وقم بالضغط على „Enter‏ 


هل لاحظت ما يحدث ۰ ایضا يتم تحديث الصفحة بالكامل ۰ فى تطبيقنا التالى سنجعل التحديث 


يطال ال GridView‏ فقط دون أن تتأثر باقي محتوياته. 


المو ضو ع ji dius‏ كما جربناه . ضع update panel‏ . وضع فيها ال GridView‏ » اضف زر امر € 


ومن ثم اضف ال Triggers‏ كما تعودنا في الدرس الماضي € سیصبح الکود الکامل بالشکل التالي: 
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الباب الثانی و العشرون البرمجة باستخدام ال ASP.net‏ 


ASP.NET 





«2 Page Language="C#" AutoEventWireup-"true" CodeFile="Default5.aspx.cs" 
Inherits="Default5" %> 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtmll/DTD/xhtmll-transitional.dtd"» 
«html xmlnsz"http://www.w3.org/1999/xhtml"» 
«head id-"Headl" runat="server"><title>Untitled Page</title></head><body> 
«form id="form2" runat="server"><center><div> 
<asp:SqlDataSource ID-"SqlDataSourcel" runat="server" 
ConnectionString= "«$$ ConnectionStrings:ItemsConnectionString g>" 
SelectCommand="SELECT * FROM [Items] WHERE ([ItemPrice] &lt; @ItemPrice) "> 
«SelectParameters» 
«asp:ControlParameter ControlID="TextBox1" DefaultValue="0" 
Name="ItemPrice" PropertyName="Text" Type="Int64" /> 
</SelectParameters> 
«/asp:SqlDataSource»«br /><br /» 
<asp : Button 11-8110217 runat="server" Text="Button" /» 
&nbsp; <asp:TextBox ID-"TextBoxl" runat="server">1000</asp: TextBox> 
<asp:Label ID-"Labell" runat="server" Text="ġx Jí تحت البضانع عن‎ 
سعر‎ "»-«/asp:Label»«br /» 
<asp:ScriptManager ID-"ScriptManagerl" runat="server" 
EnablePartialRendering="true"> 
</asp:ScriptManager><br /> 
<asp:UpdatePanel ID="UpdatePaneli" runat="server" > 
<ContentTemplate> 
<asp:GridView ID="GridViewl" runat="server" 
AutoGenerateColumns="False" DataKeyNames="ID" DataSourceID-"SqlDataSourcel" 
AllowPaging="True" AllowSorting="True" AutoGenerateDeleteButton="True" 
AutoGenerateEditButton="True" AutoGenerateSelectButton="True" BackColor="White" 
BorderColor="#E7E7FF" BorderStyle-"None" BorderWidth="1px" CellPadding="3" 
GridLines="Horizontal" onselectedindexchanged-"GridViewl SelectedIndexChanged"» 
«FooterStyle BackColor="#B5C7DE" ForeColor="#4A3C8C" /» 
«RowStyle BackColor="#E7E7FF" ForeColor="#4A3C8C" /» 
«Columns» 
«asp:CommandField ShowSelectButton="True" /» 
«asp:BoundField DataField-"ID" HeaderText="ID" InsertVisible="False" 
ReadOnly="True" SortExpression="ID" /» 
<asp:BoundField DataField="ItemName" HeaderText="ItemName" 
SortExpression="ItemName" /> 
<asp:BoundField DataField="ItemPrice" HeaderText="ItemPrice" 
SortExpression="ItemPrice" /> 
«asp:BoundField DataField="ItemPicture" HeaderText="ItemPicture" 
SortExpression="ItemPicture" /> 
</Columns> 
<PagerStyle BackColor="#E7E7FF" ForeColor="#4A3C8C" HorizontalAlign="Right" /> 
«SelectedRowStyle BackColor="#738A9C" Font-Bold-"True" ForeColor="#F7F7F7" /» 
«HeaderStyle BackColor="#4A3C8C" Font-Bold="True" ForeColor="#F7F7F7" /» 
<AlternatingRowStyle BackColor="#F7F7F7" /> 
«/asp:GridView»ContentTemplate» 
<Triggers><asp:AsyncPostBackTrigger EventName="Click" 
ControlID="Buttoni" /» </Triggers> 
</asp:UpdatePanel><br /><br /><br /></div><center></form></body> 
</html> 
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الباب الثانی و العشرون البرمجة باستخدام ال ASP.net‏ 


YI‏ فقط قم بتحر به الصفحه. و لاحظ الفارق. 
AJAX Toolkit‏ 

توفر مایکروسوفت مجموعة جميلة من الأدوات التي تساعدك على تطبیق مبادی AJAX‏ 
يمكنك استعراض الادوات المقدمه هنا: 


http://www.asp.net/ajax/ajaxcontroltoolkit/ samples/ 


SS‏ معرفه كل شىء عن اي واحدة فيهم عن طريق الفيديوهات التعليمية » نحد‌ها ها 


رابط هي 
http://www.asp.net/ajax/ajaxcontroltoolkit/‏ 
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حانمم الکناب 


إلى هذا al‏ نکون قد وصلنا لنهاية liilga‏ مع .net 2008 plle‏ والذى يحتوي 
على النقاط الاساسية في عالم 2008 .net‏ ۰ آرجو من alll‏ أن يكون مفیدا وأن أكون 
قد ساهمت في زيادة المعرفة ولو بشيء يسير . 


يمكنك مواصلة الإطلاع على آخر نسخة الکتاب عن طریق صفحة الکتاب على مدونتی 


الإلكنرونيك: 
bil‏ ?5 


http://www.AhmedGamal-Technical.blogspot.com 


وکما ذکرت في البداية آعود Sig‏ في النهاية . فضلاً لو وجدت gÍ‏ خطا في 
الکود أو في المعلومة أو حتى خطا املاني فساکون في غاية السعادة لو راسلتني به 
على بريدي الالكتروني. ایضا ساکون سعیدا لو كان لديك اقتراحات لتطویر وتحسین 
aul‏ المستعبليه من هذا الکناب . 


اکرر شكرى مر آخری لكل من ساهم gl‏ ساعد gl‏ دعمني في كتابة هذا الکتاب. 
والحمد all‏ رب العالمین . 


وصلی alll‏ على liwi‏ محمد وعلی all‏ وصحبه آجمعین . 
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الم راد و 


Pro C# 2008 کناب‎ - 


Pro C# 2008 and the .NET 3.5 Platform, Exploring the .NET universe using curly 
brackets. 


Aouther: Andrew Troelsen. 
Edition: Fourth Edition 


MSDN - 


MSDN — Microsft Developer Network, 
http://msdn2.microsoft.com/en-us/default.aspx 
. مقالات متفرقة من منتدی قیجوال بیسک للعرب‎ - 
http://www.vb4arab.com 
. من منتدى الفریق العربي للبر مجه‎ 


http://www.arabteam2000-forum.com/ 
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